(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     85110,       1631]
NotebookOptionsPosition[     84323,       1609]
NotebookOutlinePosition[     84704,       1625]
CellTagsIndexPosition[     84661,       1622]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.782165923953639*^9, 
  3.782165927124044*^9}},ExpressionUUID->"2c7c88bf-1f0e-4c31-b18e-\
369bf017b247"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "hbar", ",", "m", ",", "alpha", ",", "lambda", ",", "Vx", ",", "qho"}], 
    "}"}], ",", 
   RowBox[{
    RowBox[{"alpha", "=", "1"}], ";", 
    RowBox[{"lambda", "=", "4"}], ";", 
    RowBox[{"Vx", "=", 
     RowBox[{"12", "*", 
      RowBox[{"(", 
       RowBox[{
        FractionBox["1", "2"], "-", 
        FractionBox["1", 
         SuperscriptBox[
          RowBox[{"Cosh", "[", "x", "]"}], "2"]]}], ")"}]}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"qho", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"-", "1"}], "2"], "*", 
         RowBox[{"Laplacian", "[", 
          RowBox[{
           RowBox[{"u", "[", "x", "]"}], ",", 
           RowBox[{"{", "x", "}"}]}], "]"}]}], "+", 
        RowBox[{"Vx", "*", 
         RowBox[{"u", "[", "x", "]"}]}]}], ",", 
       RowBox[{"DirichletCondition", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"u", "[", "x", "]"}], "\[Equal]", "0"}], ",", "True"}], 
        "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"NDEigensystem", "[", 
     RowBox[{"qho", ",", 
      RowBox[{"u", "[", "x", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "1000"}], ",", "1000"}], "}"}], ",", "1", ",", 
      RowBox[{"Method", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<Eigensystem\>\"", "\[Rule]", "\"\<Direct\>\""}], 
        "}"}]}]}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.782165936037167*^9, 3.782166063319139*^9}, {
   3.782166191987681*^9, 3.7821662486093063`*^9}, {3.782166286286882*^9, 
   3.7821663487476473`*^9}, {3.782166390711277*^9, 3.782166491450384*^9}, {
   3.782166545514127*^9, 3.782166568058625*^9}, 3.782166674924308*^9, 
   3.782166743966845*^9, {3.782167603962922*^9, 3.782167604096963*^9}, {
   3.782167657967164*^9, 3.782167689637494*^9}, {3.782171229368575*^9, 
   3.782171233653599*^9}, {3.783139284834908*^9, 3.783139308820039*^9}, {
   3.783139346502727*^9, 3.783139346665543*^9}, 3.783139424533794*^9, {
   3.7831421675813828`*^9, 3.783142179948553*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"cbb2b0b2-e261-41aa-a232-79529b4cfdb9"],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"6.000001233268354`"},
     {
      RowBox[{
       InterpretationBox[
        RowBox[{
         TagBox["InterpolatingFunction",
          "SummaryHead"], "[", 
         DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
          "Ready"}, 
          TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
                  PaneBox[
                   ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                   Alignment -> {Center, Center}, ImageSize -> 
                   Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAGz867v8/j8DQTsh4GPwcPtMNxvMr
O47AMq9Fqm+IWj8bYOx5ZyCNwDdS5+mzlms/h/DcD2AYjMA3RMIX3nN0P5Ar
3YWGFYvAFYwn6RXtej8p6nd8vPyJwBRpouoW7oA/5ubcgq/2iMDQ83URzB+E
PzNn3Amy2ofAKfaYEj+Ghz8dkutw4sOGwHhCJ1emyYo/K/vE58+/hcCJKYm4
ucONP8nnON/MpYTA1wp15YBzkD+LEnfmhp6DwI8CB6Z73pE/6ufEzW6cgsCX
JcpgEDeTP9lArTVmhIHA+0CJsleelD/s11+tGn+AwDayTmbq3pU/HeVZS73H
fsB6rJd5VSqXP51vE/ygm3zAt1OOJoxdmD9kdmHM/pR6wBsCkl4ka5k/S4Tk
nXtieMCsEknE+HyaP3kO/I5yVXbAbDGcb6Bpmz/In0iBiBx0wJ6rw6PhVJw/
UYa0M/rtccBpbcIcQiadP0LSaQvMyW/AXIqcvxrVnT8iptSx4V9rwI4spd4M
fJ4/kXJol+tAZ8Af1eBWiAKfP3TpOv2sNmPAYM/nj4Zxnz8v3e7KWKldwIVd
j7d20p8/lNi5GUB7VcDv5X2nZgugP/TgsdpGO0nAT8Z16SAkoD9I6qoLrksv
wEhObAjuL6A/KxNxsD3TMEBeqDmPuy+gP7uUsykxBUpA8I5lGE0joD/TXkU/
eTpVQExuQ9ZIDKA/X54z6epIXUBQf6f5FNafP7XgJkdwA2NAlfFdFHx2nz+s
+YradhdnQN+FeoBhB58/YwSFaz+Da0DGUFGGLneeP4sWVr0TpG9AhNCVsQ7b
nT8fP3RHGNhxQGfUTe4ALp0/2GsIrwcKdEDQxJWzKVycP0ocCPd8FnZAvMpM
zb6Emz+cxdI90054QJyTapsrhpo/sxl+xM18ekBtGdaXUXeZP4PxlCtOhXxA
BLjd4XxpmD8zwnaRr7l+QO4eOChUMpc/Tgvia0tkgECcWLSrAf+VP+UK+S6R
ZoFAZnsgiqjDlD/shnVxx36CQGvW4AbhXZM/z8QnpECEg0D/esbQEgKSPyJ/
P1aqn4RAoRA05xd8kD/Yjkco5rWFQOzgnWtp4I0/amCF6mS5hkD438oTtuiK
P2yuKCzU0odAMmsc5hOehz9LvgFehtmIQBhibqoVeoQ/mkpADyn2iUCyV1wB
vAKBP0ssb+CdDYtAmUYsrGcfez/Zz9OhVRKMQErS0/rEmnQ/1++d4v0sjUCC
hHEB1PNqP7HRnRPpNI5Ajhn8nycrWz8bPzru/z+PQAAAgHgY/Bw+S5PWkQ==

                    "]]}, 
                    Annotation[#, "Charting`Private`Tag$18069#1"]& ]}}, {}}, {
                   DisplayFunction -> Identity, 
                    Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, 
                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
                    GridLines -> {None, None}, DisplayFunction -> Identity, 
                    PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
                    Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                    Frame -> {{True, True}, {True, True}}, 
                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                    Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                    FrameTicks -> {{None, None}, {None, None}}, 
                    GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                    Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                    Method -> {
                    "DefaultBoundaryStyle" -> Automatic, 
                    "DefaultGraphicsInteraction" -> {
                    "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                    "DefaultMeshStyle" -> AbsolutePointSize[6], 
                    "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                    PlotRange -> {{-1000., 1000.}, {0., 
                    0.031615675476271365`}}, PlotRangeClipping -> True, 
                    PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                  GridBox[{{
                    RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"(", "\[NoBreak]", 
                    GridBox[{{
                    RowBox[{"-", "1000.`"}], "1000.`"}}, RowSpacings -> 1, 
                    ColumnSpacings -> 1, RowAlignments -> Baseline, 
                    ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
                   GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                   AutoDelete -> False, 
                   GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                   GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                   BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                BaselinePosition -> {1, 1}], True -> GridBox[{{
                  PaneBox[
                   ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                   Alignment -> {Center, Center}, ImageSize -> 
                   Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAGz867v8/j8DQTsh4GPwcPtMNxvMr
O47AMq9Fqm+IWj8bYOx5ZyCNwDdS5+mzlms/h/DcD2AYjMA3RMIX3nN0P5Ar
3YWGFYvAFYwn6RXtej8p6nd8vPyJwBRpouoW7oA/5ubcgq/2iMDQ83URzB+E
PzNn3Amy2ofAKfaYEj+Ghz8dkutw4sOGwHhCJ1emyYo/K/vE58+/hcCJKYm4
ucONP8nnON/MpYTA1wp15YBzkD+LEnfmhp6DwI8CB6Z73pE/6ufEzW6cgsCX
JcpgEDeTP9lArTVmhIHA+0CJsleelD/s11+tGn+AwDayTmbq3pU/HeVZS73H
fsB6rJd5VSqXP51vE/ygm3zAt1OOJoxdmD9kdmHM/pR6wBsCkl4ka5k/S4Tk
nXtieMCsEknE+HyaP3kO/I5yVXbAbDGcb6Bpmz/In0iBiBx0wJ6rw6PhVJw/
UYa0M/rtccBpbcIcQiadP0LSaQvMyW/AXIqcvxrVnT8iptSx4V9rwI4spd4M
fJ4/kXJol+tAZ8Af1eBWiAKfP3TpOv2sNmPAYM/nj4Zxnz8v3e7KWKldwIVd
j7d20p8/lNi5GUB7VcDv5X2nZgugP/TgsdpGO0nAT8Z16SAkoD9I6qoLrksv
wEhObAjuL6A/KxNxsD3TMEBeqDmPuy+gP7uUsykxBUpA8I5lGE0joD/TXkU/
eTpVQExuQ9ZIDKA/X54z6epIXUBQf6f5FNafP7XgJkdwA2NAlfFdFHx2nz+s
+YradhdnQN+FeoBhB58/YwSFaz+Da0DGUFGGLneeP4sWVr0TpG9AhNCVsQ7b
nT8fP3RHGNhxQGfUTe4ALp0/2GsIrwcKdEDQxJWzKVycP0ocCPd8FnZAvMpM
zb6Emz+cxdI90054QJyTapsrhpo/sxl+xM18ekBtGdaXUXeZP4PxlCtOhXxA
BLjd4XxpmD8zwnaRr7l+QO4eOChUMpc/Tgvia0tkgECcWLSrAf+VP+UK+S6R
ZoFAZnsgiqjDlD/shnVxx36CQGvW4AbhXZM/z8QnpECEg0D/esbQEgKSPyJ/
P1aqn4RAoRA05xd8kD/Yjkco5rWFQOzgnWtp4I0/amCF6mS5hkD438oTtuiK
P2yuKCzU0odAMmsc5hOehz9LvgFehtmIQBhibqoVeoQ/mkpADyn2iUCyV1wB
vAKBP0ssb+CdDYtAmUYsrGcfez/Zz9OhVRKMQErS0/rEmnQ/1++d4v0sjUCC
hHEB1PNqP7HRnRPpNI5Ajhn8nycrWz8bPzru/z+PQAAAgHgY/Bw+S5PWkQ==

                    "]]}, 
                    Annotation[#, "Charting`Private`Tag$18069#1"]& ]}}, {}}, {
                   DisplayFunction -> Identity, 
                    Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, 
                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
                    GridLines -> {None, None}, DisplayFunction -> Identity, 
                    PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
                    Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                    Frame -> {{True, True}, {True, True}}, 
                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                    Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                    FrameTicks -> {{None, None}, {None, None}}, 
                    GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                    Dynamic[{
                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}], 
                    Method -> {
                    "DefaultBoundaryStyle" -> Automatic, 
                    "DefaultGraphicsInteraction" -> {
                    "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                    "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                    "DefaultMeshStyle" -> AbsolutePointSize[6], 
                    "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                    PlotRange -> {{-1000., 1000.}, {0., 
                    0.031615675476271365`}}, PlotRangeClipping -> True, 
                    PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                  GridBox[{{
                    RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"(", "\[NoBreak]", 
                    GridBox[{{
                    RowBox[{"-", "1000.`"}], "1000.`"}}, RowSpacings -> 1, 
                    ColumnSpacings -> 1, RowAlignments -> Baseline, 
                    ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"-", "1"}], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Unstructured\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["False", "SummaryItem"]}]}}, 
                   GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                   AutoDelete -> False, 
                   GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                   GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                   BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                BaselinePosition -> {1, 1}]}, 
             Dynamic[Typeset`open$$], ImageSize -> Automatic]},
           "SummaryPanel"],
          DynamicModuleValues:>{}], "]"}],
        InterpolatingFunction[{{-1000., 1000.}}, {
         5, 4225, 0, {41}, {3}, 0, 0, 0, 0, Indeterminate& , {}, {}, False}, {
         
          NDSolve`FEM`ElementMesh[CompressedData["
1:eJxVjzEKwkAQRUdPoqWdR/itndilXbCwWhFSBAJiUCSixKN4hD2KR1H8L4UL
y2Nnhvlv5ylvttOIWHzvJDgayo+zuxm9+b6YpTN1pN9QP/DewarE36lEX8zz
bsQ+6p3Io98LH+YG8/Xw/ufN3F/N9dlcnvhHi3+Nd8Y34bcaSX4iJ+NRk9+K
vSJH5AqP0UsfzlQ3QA==
           "], {
            
            NDSolve`FEM`LineElement[{{1, 2, 22}, {2, 3, 23}, {3, 4, 24}, {4, 
             5, 25}, {5, 6, 26}, {6, 7, 27}, {7, 8, 28}, {8, 9, 29}, {9, 10, 
             30}, {10, 11, 31}, {11, 12, 32}, {12, 13, 33}, {13, 14, 34}, {14,
              15, 35}, {15, 16, 36}, {16, 17, 37}, {17, 18, 38}, {18, 19, 
             39}, {19, 20, 40}, {20, 21, 41}}]}, {
            NDSolve`FEM`PointElement[{{1}, {21}}, {1, 2}]}, {
            NDSolve`FEM`PointElement[{{1}, {21}}]}]}, CompressedData["
1:eJxTTMoPSmVkYGDQZECAqIzGk/udSuwr29b+f8nUYl/hUnMsKq3XniV70mIX
jsn2162v/Mh9Os1++7I3QQFGs+yPf4g6Jn9rjv3L69ozFM7Ms59wM2K9wJ/5
9hPWGVmaGi6wv/vbCMy/0vNhOkg+l0EMrH7VqpVg/cLlM8DmTUiNBpuvw6AA
tu9TewbY/o0fDcHugblvl/GCI8eDUuxfHz0apWxTZ79c1Gub3okO+1WCjEmC
ryfY/9ZiPJXPPtV+UbaLhff8GfbCe84G/Z892573W3Luzldz7aU3nlZ9XzPf
vur12juxKgvsWTgWg2ntmzPB4tfeKYHVLZnXAdbXZcMKNmch74mTIHNdN55N
BNlzJfv7VpC9An8jwO5QEfADuwsAoCWXWQ==
         "], {Automatic}],
        Editable->False,
        SelectWithContents->True,
        Selectable->False], "\[InvisibleApplication]", 
       RowBox[{"(", "x", ")"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.782166463867296*^9, 3.7821665065013437`*^9, {3.782166681313052*^9, 
   3.782166688025358*^9}, 3.782167607690854*^9, 3.782167693874909*^9, 
   3.782171236527906*^9, 3.783139255469857*^9, {3.783139287376499*^9, 
   3.783139310192334*^9}, 3.7831393494537907`*^9, 3.783139425793858*^9, {
   3.783142171310917*^9, 3.783142183022534*^9}},
 CellLabel->"Out[8]=",ExpressionUUID->"395cd688-1122-4e07-b9e7-c1b504318faa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "hbar", ",", "m", ",", "alpha", ",", "lambda", ",", "Vx", ",", "qho", ",",
      "eigens"}], "}"}], ",", 
   RowBox[{
    RowBox[{"alpha", "=", "1"}], ";", 
    RowBox[{"lambda", "=", "4"}], ";", 
    RowBox[{"Vx", "=", 
     RowBox[{
      FractionBox["1", "2"], "*", "alpha", "*", 
      SuperscriptBox["x", "2"]}]}], ";", "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{"qho", "=", 
     RowBox[{
      RowBox[{
       FractionBox[
        RowBox[{"-", "1"}], "2"], "*", 
       RowBox[{"Laplacian", "[", 
        RowBox[{
         RowBox[{"u", "[", "x", "]"}], ",", 
         RowBox[{"{", "x", "}"}]}], "]"}]}], "+", 
      RowBox[{"Vx", "*", 
       RowBox[{"u", "[", "x", "]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"eigens", "=", 
     RowBox[{"DEigensystem", "[", 
      RowBox[{"qho", ",", 
       RowBox[{"u", "[", "x", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", "4", 
       ",", 
       RowBox[{"Method", "\[Rule]", "\"\<Normalize\>\""}]}], "]"}]}], ";", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{"eigens", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "5"}], "}"}], ",", 
      RowBox[{"PlotLegends", "\[Rule]", "\"\<Expressions\>\""}]}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.782166620655101*^9, 3.782166633208434*^9}, {
  3.782166869677268*^9, 3.7821670301265993`*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"b862ad02-b96d-46da-a513-9a2e8dd20733"],

Cell[BoxData[
 FormBox[
  TemplateBox[{GraphicsBox[{{{{}, {}, 
        TagBox[{
          Directive[
           Opacity[1.], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[1.6]], 
          LineBox[CompressedData["
1:eJwV13kw1d8bB3DrxXVxFyrZJYS0SaX6PE+kRSLKVlJkKxGyVSrZZQ1ZKqms
EUVKyrfssmaLhAi5SGVfQn7399eZ15wzz3nPc2aemSNjdcnQhoONjS2LnY3t
/2vSDSvSFutrxC9TEeedfMNQ0SqtayJtBs0ZvXfVWV6peu8nLX0ebr4/w7OF
ZcHo1y/IX1whQzWhQoHlpJJwKW7pK2CF4Q1rWVb5Yx2xYncTtk7ulyWz3CP4
8N9Shy/8m68qm+EdBrl0PvW/iwFAKRF/3sPyxb3ujnNSIbBgb8AsZfllW1/q
tFYYvKhzcXjC8l8H3e4Ju0iw9AjbfZPlR+zdIXPad8AzJ8/ElOX9DXfWz3ZE
Q5DD1IeNLA8nHCydPh8Lhy1t3FZ4hiHMetl8avEu+M6Iuzew3LpoHzsulQjm
su9OWbDsUS25+U/ePSBWfd4nw/LamLa6X1oPYMLivlsfaRislJDzp10yuLml
lxxnmWPx6qdp70fArqPylYfltj4jiWntx5Aa0IdvuIfB6xl/0WTHE0jjPz8r
wLJO9BBp8lEKrOEL037JNQziXqUnJs6nQlTL1f4TLJdoeY7/WUyDjBkHUjjn
MPB09Sv8knoKspsbFpvYh+FLyX/uY8NPIVDv8ntTlrPSE8p/5mXB+gGXpm62
YdBz1TszqvUMnkudGehcYUIc39s4pt1z6J/IqMtYZkKBp47r5TUvQHXgpRCd
5QejO0SnvF9ATBctzWuJCU5NdLtJ7TywHO2r0FhkAv3BR46JjnwQvT/TFz3P
hEXB10+d97yEopXnhb1zTBi8lXJs/NFLeH5Ltl+R5dd2Nx7+OV8AKTx+217M
MOHkNjWN34uv4MvL9uboSSY8rk12+SlVBEGyl/UzfzJhOuGVUm9YEaw/FG6V
PsqEA3Z1Ay0LRVB5tUD50QgTxjjnjN62voUKU+v+QCYTdu7V0wgJKoZI1XMT
0gNMaHq+xKHw5wOki2yWDO5k5QU+CwHVEmhOzu/c94UJu+VjNYKsSyC+aLvR
XDsTIqafTl1tZu3bkiON2pigduezjVV2KYRuIMn2NjLhZq2KzpYz5VDX7eao
UM6EzLxC+ey75fDKNvdWUikTWhI0OdfXl4OOj4yVUAkT5OxMi9fsqgCyDC10
qJgJtZz+qmyMSihuFLtr9ZoJq/Z20T9VVcHJdn2D6Ewm5D4P6bqoWgu0twNr
OkKYMEofDdOxrIUR7ib/n0FMUPDQIRRja6HkfKflUgATHu3hfzywUAvrVr67
MnyZEF0TZnuysg46/l0hr77KBI+ByImD5g1QKO3T73aeCcn8dX407SYILUqX
jNZmArH3mrmPRRM8mV0OU9diQreT8vY/nk1geOF8WAcyYU1L6FB9VhNkBgxo
Cu1hwp0E3cPB1GaImAvMMdrKBL/1jYIrXc2wZlewJ0gywQ6aE8dcW+GrT59Y
5NQQsD2ZfdsV2grHhf79+Dw+BAlc4t21qa3A5tcZJPp7CD7W2Eo+bW+FxM3J
JvHDQ6B4YumJjUYbFJ26ddixZwiG7RWefWP/DDIZuaF+VUNwIfr6+6aodgiU
Gr9sFTcETj82DBTkdkKLYIv49o1D0GfRyVta0wkSTQrpzhuG4PiXYNWGwU5Y
o/XqW+b6IdhZx7zyY+1XSFOStRGSHALOvDTqqqCvcJF933KBICuftwzheaYL
XtfKCFn/+QGlDNHEXdQemOncm34m9wfrHf0Venf2wY6zIodx3Q+IoNYpPT47
APGlxbsucwyCVdeJD5z1Q7BQKr1ZPr0fXCr9rS4pjEKX6rIhr/p3yHOmHF9z
+Bcsui0PfU3uhcfXHEY3m4yD+NtOXouQbvBNXjKYHpsAA/bDZPGsTmBr7cPi
q1MQ+zB9n9BIO8i72XqdUJoBs9Vj/BbkNhiciTfm/28WXjspP5r1bQadHxeu
R7vMg6isl/2G3w2gNxilLCn5F3xv1FzJtqiB0XIrn485i3D3nIiIaHAlqNLa
JbTOLEM+Gjrot5UCGWYsu6f+QfpntdSUxP/g4K+Tc7JGbHhPM2Bi269C+FJm
zX5ShR2fbQ+4r7PtJYzv+7r2+iZ2nOLx0pNf9xJ4SvXVHm1lR6p3TCqF8RLU
P2jYDe1kR7XWPUoLk/kQ+47a4KrNjmlPm5QMXuaDfkFxQqgFO3pY//Zc2J4P
VWnCm/+LYtVjPMgT1MqDV8EVFtIz7MhT5GZTNZsLmTp1a4Lm2VH9wEjZ/s5c
uEdpafm1yI6dEhovOt/lgk9U74F3HBy4ieuz4MFbuaCb8FfVmMqBt4aPZKkK
5EJ/xuaVUGUOFBQvr1bYkAOC1Q+S5yw5kJLH+ODmkg223O59jY0c2OeRdEto
XyaslarpWGzmwDOG5Y/dlTKhcafEJ8XPHChioET6xcgE9YuV//l2caB0y3NP
IWYGkFpF7qsPs+ptMmaXjciAtEevjR6yc+LjT8qN7r3pMLh7vtZRjRPFOWPP
JkakwTnXa68o9zjRieepTZd4Cqhv/fZqQxInauZslH9KTgHyJL4+8IgTv4qI
nAyYfwIvXEiFPumcaJ009te+7QksOd95M53PiTLyqru6w55A3KWMd911nEga
E3N2YHsCNRdbS58tc6Ifj7PJ1MQj2GSn3KhryYWiJBP2qoUk+HZe6lKONRdy
BiVciO9MgrCLDKqgPRcadQYIBxYlwYjLosEnJy6EeuOvb68kQYp33WcDby6s
Ca/4d3PxAayOdugxjufCpjMGB+y4HsBKcfbY2QYuxBue01LK9+ATXYXffRc3
ahj0hbB9jAPC0XHk/h5uPOyQbLj7RRzkVudWlwE3bnb9aRuaEAcR3lv8qQe4
ccn4gbrD+TjQHVJfzjbkRn2eDy0KlDioLdr3p9+BGzWPfmQEG92FyrMmrcce
cuP7YJ6EG3MxoPYuIc/zMTeG/Xtve6A/BlJFvkY+TOXGt3fTnss0xIB/rbnu
WBY3mplbetJTYkBTzaoyqJAbA3Ujjnfpx0AJj2Ph+yZuzNH1/7v8LBre5fre
V+EkYZ9mrqy8+x0g6RqtjSeRMFes823O2TtgMKKQyE4mYX27hYqO7h1grmuI
a6eS8FOmsUnpujvASFwd7SNJwu/qvRPprVHg4PcsuG0XCef611zHHVEgZtru
7u1MwtS0xCyXtRFgO5M5PXSZhOn6Y54es+GQF33tsoEnCWO3sHU8agmHgw3S
LvI3SJjwfbjWJjQcLms6XGwKZZ1/zU/L+RcGdSps5+QySGi+SztUZCwUrrEr
HavvISHpR6Gv+/cQGNrP/0X+Owl1VdxW+5WFwLHgsTO3BkkYkbCinJcSAnJC
zy+p/yTh+7UHrJ1sQ6BeXC3y0TwJ97Df4rzwKxgkdxKNbgwe5F17s+woezCU
ORnqShzmwR8tlZ95MRBU8re1eeryoPfe9TAhFwhxM8LmLfo8qGr7u3KWLxAc
vDscgox58H5zWblpWwAI3zYPnTjHg/9Oqz5zvxAAtmm2tZU3eDCn8U350n1/
IHdfPeRUwINHhy9xRzH8QN3zqUBkIQ86pZqdvbXsC5b0Ly3P3/Kw5o+ZaQjT
F94c2n56ooQHPfw/NXe/8wXbV39c3Bp4MMmhsj7SxhdKI6zvXx3iwfZxIXGR
/26B1z6934FreHGb2mUbUW8fSO32fpkhxotDXtX3iux94JNnttdHSV5MefpX
xMnIB+RzeTnJ63lxfZxGHGOTD7SuLV8dvoUXGRoVsUlVN0F1ese+GB1eTO89
JPzr4Q34kS4Tm+zNi0I/JTbKXfSGMf/vC5w+vPhpaFHA+KA3TFo9PmPvx4vk
Jz3B+bLewCYlo7zlNi/+3h6bOtp5DdbGS5eVxfOiBy+131DnGhwLkhr/kc+L
06Vper1br0KxnYSuyggviphwSDfIeEG5dk9e1BgvvqUVr+fk8ILadUmrZ/7w
Yr7p7hKLfk/o6BUf+G+WFxcTf60NTPGESRPxq/pcfFj9wWnfHQVPUDwklukq
xYeuesVBXuoeEKsoylVkxIdkl8TXt53cwNxCPmPAlA+V430ylk64gVzsNh1B
cz5M3WJyLnS3GxSsHI06Z8WHkncT6/7xukFbu6+44CU+DIpJNtBIuwyMgDG1
c8F8+KHhP8ZYvytEf/9gI/COD8NCGxuvu7rAydUNvDvf8yFpyM74hLkLyB79
mm1Vyod5VhX6+w+4QP6b6YnCaj6M/Ldmq/NaF2iJ3HDDqo0Pc5OYE9PlzkAj
YuIKf/FhTo9V4AMxZ4i6Z1ttKU3GZJmjZa5FjuDp4XvZex0Zj3o4xPTEOIKF
4UOpeHkyph0ZunrZyRFUyO2e9Spk3GfO3Scl5wg1V7QVd+wiY2W16jGPOxeB
w0wuhGJIxvmnvmnTlx3AfXW/TqEfGRWbhDeImJwH86nl2eZAMvZQ6u/eUT8P
+z+JpoyFkFEwPGxq26rzQA8yWJSJIqPj5VNDI5/tIXe2JDvsARn95yocV5nY
w/DnZIrVKzIqKZXEHDtrBydjTzdSmGR8Y2xrtj/cBsRfksUcRsk4q2Mj2+Zk
A73NhXY1v8h4yFRTJvSYDVgL0dkDp8nI4T8n4CRsA063q7atsPNje8KOWo6H
1uDrsylxQpwfD69Sidz35hw8vchu3W7Ij0/WlNSP8ljBxdDcF2rG/Hh7M7lX
4LclqGadWo4248fK+6Tvhm2WkM98Fad/lh+rU1pFNB9bQrHVhZqPjvw4sWw/
92KPJTSZtqq+C+bHXQ9p73OvnIX5/WkLye/58djFJxcPrLIA73fJfhWl/Cir
23XG6tdpYNt6T2Ckgh+Lz/47mldxGnikImW21rHyrhXaybx8GlYteB2u6ODH
A28vrM1pM4dtObqJw+P8iIlsN52TT4GTyPTOLesoGODl+vqUqRlMhv4uM5Kn
YKn8mqWL283AnWNE9+oGCnpQCoKz6Gbg/afnbPkmCnatict52mAKoTXVwUZ7
KBgftfFFvrYpZF6//+WKEQVJB9aEVOw1gYEfml5lQRQ8oV/YlKBrBJrJjU+U
QinI39d32FjFCB6ZnmyIjqDgvuu7G5FiBBZ1LrLn7lJQL2b9qgf1J+Dri0f1
nCkUTLydetNG/wS0XPsnrf2eghNuqnaM08ehjPa2pnqagkmpFEWbeAOQqdOe
3jRPwZPhA59OehuAj3+zZMIiBdcqWn33sDQAYm74sj2HAHK1KXrLqBjA2+7V
knxUAXycn7Jzd/kxyM9wd9VRFsD2q0PXcsb14cneLWINlgLYWRr5qWlBF8r0
yH6L1gKYuo338f1PutB/ZmB0g70AqjxXt01O04V1vnffBjoJYM3UUsExQ11I
rVoww2sCqNzp+tkw9wik6ZclvIwVwL6yAw8TnXUg0/L4qnvVAljgIMNhLX4I
Prqq3PhYK4Aj/0Vl180fhGE/7qHZBgGsU6sUt/58EBTTC18dbxNAl9Td5+Qj
D8LTUTEjge8C6KyuNDzCdRCyLg/G+PwVwPju0eGdC9qQE+BOs9soiBsOixVZ
c+6HsT2nfQM2C+KSo9Qm8pAWqEzvn0rZJogHORdedHzUgiwr4c99uwRRWaCE
OhqhBZnwMuHkAUFUjcr6MiSuBakL41J6ZwSxQ9N/SQQ14Z7jRdXtdwTx09Zj
FPYnCF/lTiQfjxVETXX7k0dCEES7d1Nd4wWx30PzW6EzQoIO/2RuEqteU1fn
LCDcVch6pZgliOUbD3UJlQBEfWfuES8XRP72WbEUXQKCjM4d4ZwRRKfXGrI1
sbvhiX63uc28IJYcE9xSY7cbig8bOVUvsuqZedQL7N4Nk3sP3gnlEEIzhaIN
5/o1wFxeuYNBFUJ5740SamoasHVu0kpOWQgDm62tJQZ3wrcE36valkJ4wnDd
RIKrOixEL4ZmWAvh6r2OfleOqoNwuFsSn70Q8pdE+sUoqsPhW7YlDU5CSD1k
Gujaux0KzuuQjL2F0Cg77V2r/na4rUGPto0XwqHgt9Y9Gmqwvfvx06AGIdyv
Zw2zO7YCVdV+/nmTEPrpanq4i22FsZuqB7+0CuFlTz1PyZUtkLru3aDiVyH0
La2fGavaAsIObVK1Q0KYkuxR4W66Bf56cx4hsVHRiOISTPLbDJ386qWHRKmo
wD0bZDWyEarUEoe711Jxj0OhMcfbjVBweknIRZyKGZSc2OHbGyHqeZlFohQV
ZTtrvwZu3AiHjusvjaynosXvA3Q2DxV4c89+R+hWKkbz0T5GM5QhYcP9nIYj
VBxkF+7+74YiTE8dSPM7SkVS6p71W08ogv77yQe79KnIzlY8/HODIpCO64Sl
GVLR2o2qodquAO7eCxeum1ExQPRnav8WBTD8ZKK40Y6KSVfcbfJm1gPFXTgl
zJeKmpZv9ux6tg7soeSepj8V9TUf29wPWQflfBej5wOoCDvNf6rbrYOrD8tv
WYdQcaKP69madetgpNr17J4oKoodtXa7niQLVWubJcaSqKhx+qPWrQcycLMk
POFIERXzdEMdbX2lYLSnJHbhLRUX7PRSNY9IgfHiVFRGMas/9tRvV4SlQEX9
ZAhnCRX/iJOV5zIk4Uu2/NV3VVRMiVvPJ9kqAVvjP5xSbqPifEu8VvoucRhy
nJDk/0PFh1lrH9L3i4JBqJxY0TgVhzpzCb3VolCcabLabpKKO11c69tG10DM
wH9C5TNUnAz06iqJXgNodpvt2hIVv4mWSvEOrYZ7+9f1j/LRMHQ8Wno8cRUc
FTNKq5WjofNkbfVGNWFIGFQtOSVPw+ynk36n6cIwmMPbNaZAQ75F5Y9l4wzw
xmKqkDINjQO+ZavkMuCZzTrv41toGN2sctRdmQHkFxOG3XtpmD/t9i5uEx2q
90ew/TamoWrO9QgRcyrQBe3FbprS8AKv2U1rpIJFxz516kkahkmEf+6Vo8Ls
+RmHradpmJCRqfeqWwjkI807PM7RcPOvmuMvSULg36mUu3KJhpEK0lohFwRg
n1P1KVoIDZUzCw7vdCLD3y8jBypu0/Bq/9iZjXvJUKBF2eoZRkOvLrVyLwoZ
5EUNeHsiafhTk7qD+owPKBVfCzLjaCj/+ajT1j+88EX0N2v40nBZcTmrzp8H
nCuFS5w+0LDIqoN4M8IFSpt3ZMuUsvrnJ+LoWsYFA/fM4trKWI7oS3G9zwXG
zg8valTRcFNsqpGWHhfsEVMUJTXQUODhFTHRQk7gddntmvSVhksXSni33eWA
ZHErufoZGnp6GGcp+bCBxjZlVas5GprUuFf1W7FB2+HpHfPzNIyp23u4XpsN
eD0Dj8gt0fDVhrFDWyls4Nyc5erNQUeLmyoX/NRXCAycKlERouNKZVWeif8y
0f/H/3S4Ih2f5XAct7T6S3iT9OzWKdGRsBrL5d/2l1glsdqlSJmOi5N7eklc
fwkdnaf+P1TpuM8jqOBX+gKRn9qQvXc7HTfdfCJ9aXye8DNb9ffXPjrmu2r8
bLkzR8iVZ8TpnaKjcpvwq1byDNGoMp/abU7Hs9efN57/MU14xR16ecGCjqUW
h49AyTRRd37kU6AlK19Pf0e6xzThSlXm+2BHR+fZx4dOD00RH07nXtvkRkfP
CvkSWvMkcXK+4Cw1nI4/984c5G0eJ7isuC89jKDjAclHq5rzx4ncOqPrKlF0
LOM+mtsQO06wJ88mHoqho0Q898hZs3EiU3tnq08iHat1Tk3X1/whZqLfaU+k
0VHfbJOqHvk3EbWxTKnlPR0DlNNZ/8pRInPnKT7fEjom19sVjd8fJT5oTTO3
lNHxjIspV6DdKPHbTD7tTiUdFSqG8ztWRogjgbelDOrpuItN9gzX9hGC1Gso
3NRJRzuPMvLvF0xCYvTn5M0uOlYumcly+TIJtRn/5k09dMyVEP7repxJnOMv
jIjso6OTU4Wj6dwQUbJDjE+fSUedZcPdW7SGiGtRA8sN03TU7Ul3ix0dJKLv
e3dfn6Xjjw07ZH+XDBJZ6SLvNs7T0Uf1hkh8/CDxpfigV/giHaeFJO60aQ8S
6iPZk7ocDJwV4Hf8nTZAjO9zY9YJMfCMXIv2erd+wnaKq7lGiYHXSfKVZO0+
wiJrf6O5CgPLTv0iecn3EcaW/nV/NjIw8VIBivP2EQc+cVaJbGFgkxePDjWh
l5DP5nhnuYOBnaQPEtXPvhE/rNjSFrQYyGBvv/ZypJuwbln02nCagYNdzf2N
zzoJ85DdHsUWDByXNjhI8+4kTuC1y/pnGSjUPXfw2ZFOYn/uX0f3cwyMcbEs
Gvn5hZC7vWBVep6BL5pS21w2fyEG9s3pmnkw0CbLu3F7TTthlTcpHRLJwA50
lCvY3kZc9D2+pHOHgWODh6bdyW2E+/GCDkoMA4tXqbhH9bYSwTPuEVFxDFz+
8P1z/e1WInfXwmJ8EgM/mUY7HPvRQiyUrrSnZ7P6cWNV1sTTZoIj5my+fQ4r
j8/ozB+/ZoJiXRqu9JzVz10vcvdYNBOSJL/9ufkM5LH98+89o5nYr0PKf1XE
ul+u5KaxbxMR1UIJr6hmYGPi34Dkr43EvRRH+8Ca/++f/NYT30ikuDVqHapj
oF9PTF26USPxelXU37pGBno8eCze1tJAdJ9k2Ld+ZuBtugntZms9oTAgqtU/
wMCIS9ucN/+qJTYXXJVM/cFA7uW+N/fzawmNgK4FGyYDD742Nr3lVUvoKiS9
GBllYIHuu4ZC7lrC1UFacmKCgar5zkaF62sI7z23FvKnGBju8Yjc9fsjESDQ
3+Y2w8B/kguZLm8+EgnPU0Ln5xmYrn2Bf1r3I/HEh8vu7V8GbtAc5P22+iOR
bWCj6b3EwFuM/VY7BqqJAtkqCeIfA42aHHau5FYT76fkF1ZWGJgS8CNH7Vo1
8T9wFBke
           "]]}, Annotation[#, "Charting`Private`Tag$14328#1"]& ], 
        TagBox[{
          Directive[
           Opacity[1.], 
           RGBColor[0.880722, 0.611041, 0.142051], 
           AbsoluteThickness[1.6]], 
          LineBox[CompressedData["
1:eJwV13c8Ve8fAHBkXPuOIiUjQmYkpfB5jESUzCLJCiErZEa2ykxmKPQtZCQq
o0IiiTLKTNx77HXNCPnd31/n9X69znnOcz7rnCNs6250jYGOjm6Cno7u/8fs
27bM8vaBalePTzS/3hus1tQtpH9RyBwe/tI+1lhuATvN78OFhK5Dh5tR351y
Z8iujxNkEvKHKqUmgn55ALiq+tz4IxgLNr8tvg2U3YXuTacUqmAG4My463VK
M4FlkCw+J1gIWR2aw/ueF8GTL7meM4LV4HGk/sLthBooLYsddJX9Akwu+FVt
lTZwhM6MWa9ukEo7XKtU0w1uY4cplaX9YNKmHv9aqh9GrPpxDa39sBJ/PnFO
vR+M+2Jk27F+ePzU+BPvpX440TbhP7ZvAP44Jj45HdEPu14+xfNED8Cpo8d5
mIf6IT1IWO3W1UEwuqBQRogdgAYSX4Yy/hf8nvz4i9Q/CGzCEeK/T4yASoeu
y8z5YfiskiR3+/QIiBkrH3e2HoaoSznHDxiNgP1oO9eQ5zAwJL49c9llBNyv
tX5JTxmGv/9mHXuzR2BlQ/OXT/8wzAyZPv/GMAp1ihZN1da/4Wu6+OH6r6Og
fkn3SZ7CCNytVJS/2j8KK9/+vos7OQI639WV/42NQiorGe+lMQJNLJa6Kjuj
4GeVdkGMdt8638Trb+XJIFJxf1PFcwRKTDYKy1PJ0JGYJitcOgLx+DbJJ9YU
KGTR9n9zcBSqjx+oOu9GAeUBLitLyVHArNxhK5ACZW8vMGzIj8KpEpLJxTQK
GChJ3eFTH4VJXctgzg4KnJjYL/zHahQ0w+e++Z/CoEPVX1skYxTWV7l9jHjG
4I8L2e4oC20fB2x3dkTG4NnVH61fOclwXqsytkR+DFb4BGqv7CbD0+RLObhz
Y3BxgXzSQZgMRnJPWt6Hj0FdAFMC4RQZSpwU9kktjoHQRbvs765ksB00+bDr
6zj8/JSkNd1KBras0Rue/eNw4quJn/k3MlRYuPH/Hh8Ho/UY1/oeMuwaiPav
oZ+Ae6rNKT6/yVDQV3PU8/gEKIs5DwatkGH8h9Dz4bwJkJ6+wr7DT4H4hyVm
+uUTkGGddmhamAJKpieZat5NANlzeeurGAWie4xtH/ZNwEQ7B8X/CAUkuqP4
9bkmwfDTYJyHJgWcv88mVvtPAs9mvn+nIwWIif4gHj0JgWbI84QrBWoMmOdT
UibhQW+4RJoHBdi/Cep5lE2C5HXn3lP+FHjRbsQkPjYJvnsG1Q/epcD8l7f+
KRemoOUZc5VdEQU8P0XYuotPg193XPo7jAICmDbz2tFp0El37aBMUKCNgbUo
CE3DAR7XKYYZChxCcYux5tMQnS/fJbVIgf6ah6EF96ZBtNM/WmKbAurl/+X0
L0zD1OPLxh0kDOY7nDSst6bhZs4N3XAeDLLmJMfHcTPQW8GsKM+HwapkmcyK
8AxwPzs6c0sAg8Knb+q4TGZAVYqf/qUEBoSszwOab2eABe3/0UWri/fVd29/
aZqBpbS8XF41DFz69A8ads6AbhKHlynC4NOezutW0zNw3G/8aJ0WBv6J/et+
/LNQaMdnpHQOA7GyrEc7ErNQqs0QpmmAQXf7FRR1bBbq/GabdA0xkGEnRz84
PwurL7Ji1U0xGI2c5ikNnYViVZ4Tw5YYxBe8qFGMmwXX448PV1phcOqjm1Vt
xiwEk5VPhltj8JBu+ennillQz5x6z2GPgW7gpiIFm4VXu0XD250xeOnBYbxX
dw4SPx1xZrmFwddMkn+J2RyIB8fLxvthMN60L1fDfg5EW3i3OAIw2Md3eMY1
ZA7sCb9ql4IwiGg4Hd5QNQeT1xK5r4ZhkDOjX2j2cQ5ORkVZ/ReOwds9Jt9m
vs+BEDGydSwCg7nrtvt5ZudgWdd+Wz8aAzNiyCvng/NwXvzIwXf3MPBQierf
kZuHN1fbUz/dx+CuQ9xOiuo8sFy4fao5DoMPNVl6Hy7NwzcGf8HyBAwGsDxP
E4d5sGfbtstIxGCFqyht6uY8lOuxUgKSMJCwe0shJczDo23rLLEHGGjEfWAt
fDQP+1bZBqg0W75pllMrmoc0qb9XXqVgkMT+I9Dp0zzwPklFwqkYvDg29GS7
ax74hZsLvtLcfJXSkjwyD0nmYO6RhsHfV4ukd5vzcPaP5vvH6RjsHl5XNmJd
gPAOb2+ZDAxkcXTWEzwLcF35ZFQFzToKLFFBoguQ1+65JpeJgZ0l1wuCwgJo
eW63PKX5dtServ9gATzMPm6TsjBIL+dfP3VuAdbWSjIDaK4YEBHotFiASe4X
T/pp/soopeXgtACq2eV75B/R8iWr4LzpswDmPyo2QmmmM1dOTAxfgGeipRda
ad4Xjl4fSloAucN5B9iyMThWcmaoJmcBuEuT7TRpvtB7nuHCiwXgfxZ9yIdm
Z3ozibHqBbCSjnPIpTlC6sr5gJYFSPF5dbiR5hxTe2/uHwvw7geX1y+a34a4
ZBaQFyD59RuNRZq7C73qlakLgEv5krNN83y3/3jH9gK0/nGMZcjBgDEEMVcw
UaHUu5KJjmbCbq2MIA4qKOT18azRzhcoPCN9hkSFCV76eoxmKTW9D4R9VJh1
smL8SvOJ7vNGQ0JUMBE8NFFM82kno7H/xKmQ/SbOJYJmo21TP09ZKuAe9aSY
0nw12Zxd5RgV+IROOgjS7Cp+JYdZhbZeIANllBYf/zpr+U4N2vUtPlzZNEcZ
2jdl6VKhcO33zAWaU8YdLzpcoIJhd+LtbVr8nwS6TB+5SIWljcHWPJqP1LOu
R1+hQs+HU3FnaK5nfM70244KO+7q/8Zo+R2Jw4TiPKhwqfjECjfNHl1hspgv
FZytS29n0epjh0dY5VQwFRb0uxqEaBZ4fOXiVCwV4gX1g/fS6qsU27RHiVQY
KlTZvEurP9XDmV5pqVQwLsGr/qHVp2XFz7jT+VQY6XnN++4hBplNBk1P6qhw
ImHY718yBpKs853rjVRwdKi5BjRXn7v/26CVCqR6R5n/90vfz89/t39Q4cDC
yKVftP7imVKXt1igwvBqpJcFrR//kxlRe7lKBcElUowzrV+Ped3Wx21RQVGZ
PdH7LgYmmzWOr3GLQO+nEO4bg0Eyp2IO8eAiLNweOKtA6/+DRl3F1yUWYbyE
V4dImw8vUz2q62UXYTd53WD2DgbfBUt63E4twmrm8r34EAy4FMTY20wWoUjM
kf0+bf7k+DbtPXh5EXykL1Sq+NPmY62tmL/NItxhqQydoM0vfa1cdXG3RSgN
ikiU8qHND7O9fuHRizAqtIzdcKfVf9bryIG4RdgQPcdAvUGb779NHsinLILB
3zhLV1cMPjsllf5+vAi44YIe4+sYMAeyjZ2qWYTFvhaZYVsMwnK3DFdmF4Gd
e+UqxYTWL0feekotL8LJ1/ukdxvT8tVwM8l2YxGcU3YeA21+15Cnv39nWgL9
oIKkKNq8XzrUb1AisARNo6ITPacxsH1Rdc7hwhKkykrJ+R6j1Y+q541ssyUg
+tcxGR/F4F+7dFyP5RLsPW/5VlKels+F/K8a15fgVWLv+y/SGHQpJOsJhi2B
vWn0i3YRDNSr3XT7Xi0BG+vF+VE8LX5nJa9z1yyBUs823o0Lg6GBsRjt+iWg
FyrSWmXHwG/L8nPl1yX4+ytydoUZg3LQO5M0tgQ8RnWPqrcoINQsfvos7zLA
f1q3LtPev3TdI6guYBnoBwP38VVTIGLq/ZOAO8tQnP/mblsVBVjpshmUY5bh
UjKx1K+C9n0gY95U9XAZLJUEhT4W097X0Z1nysqXwetBpRxfDgXOnmo8nze+
DOFDF5ba71DgQX6+ZYzRCuTNry75n6aAmLeDn4nkKtz0rS4efk8GmZO/jXOP
rEJ4kuhOaQ0ZFOkuyU0rrQJTVPTrwNdk0LivOx6iuQplYuHWbKVksCqQNim2
XIUfKaEc24/IkNqzJMeQsAruZwoETgWQgelYyETZ8ip4fk2kP6ZABmw1zYz9
3Rr05tkYrqWPwtkx5+Bkz3W4SRV/lio5AuexRCkBgb+wXJvp7aPzC6Y/2oZ+
LtmES3HtxvlmAyBL+HlA8+o2rI8/IXeJ9gIbrNoMLf+DQavHO9/VeuDMnMWf
g6Z0aNAwNFjhdCf0NdrTW0jTI63jNiX/RNuhKqbJSmiVHiX7yrb1JH8GByaf
kY4OBrRQ48K9ItEEdl6BVRyZu9DjsK6+jPh6kHOU6tC3YUQ/mruLcnZqYPi6
oHuJPSPq+M9skWeiBu67kvBcToxI8zrrv9yOGpjy3DT85saI7vjuM8OyayA/
qO2HYRAjOlEF3sdUa4A32eWXWRojCiVqzq/croaduuJZ63ZGRGcHnz5yvYVv
RGl2H2Um1L15jsvBqgrUbtyYylJhQtMD9XKaelVQ2lLa0ghMyOqXy0sZ2qLx
QfIReG0mZP+VsUGSWAX640rbxUZMyGuj905TcyV8qVZfILswISVvayYvhUr4
ZH2x+0IOE6q2e2ybSHoFtaVhWdK7mNHVlMTjJZvlwKxvui+NmRnJ8E33206X
g+GUeAY9GzOy63j4SKy/HCZE2lN/4pnRwRfHHPpelwMpgzc5VIAZ5S24qWNe
5eAS/iKmR5kZqfwbTJIZLIP9l376BHkwo/5aiRKngRIIpJe88PUXM5pgjjzl
Ll4E41rsfWKjzMhtSCnyL3sRXIiZvXoHY0ZLfL3h2dRCEOUuc1eaYUZvSXRO
kjWF8JVfMeHxOjNq2N2mZXW+EAROqHV4k1jQAU3S3oOBz6HRzUj/gC4LKi3e
DH879h+wDQXouFWyIFCqkODdygelW4WcCW9Y0Mj9V5VZE/lgQ+zrKqthQTrX
7gzLd+fDW51jVxbrWVBM4pXfyUX54FC14OndzoIMi2NsxCzyoSHePitgnAU5
eal+ia3LAz/18/NRe3HoD26oejXuCRQMBb16th+Hzuxxa0kPfALfbhX7fRbA
ob9i23v0rz8BsVLcLrZDOHQyR0iPovUEuvd95I2TxyFHhcCprq3HILtyXP3B
WRzS2VORW+L+GMb+E07JDcIhi9o7xZyNOTAbMbqxKxSHBG+9TvbNyYEl2ydX
ncJx6In2SBpDYA7QCQpLyd/Fod8V15PDFXNgX5pQY2MaDuWGvnIQK8yGC9GC
1LEKHLIpq8zuS38EdY4H9KWncOjEPa1W5aRM+Hj618vEWRxKsSpe7vbMhC8i
2byrCzjUt7RBF2+UCb2/+Snv1nDozY+7V212Z8LSRf4AA0ZW5GbgeiMsIwMk
dPY/9xJkRUY6V9bSCtMhRYKPsdqUFc39MtC0H0kFSyuxZ5RLrKg0VKsntzkV
RFOOnuWyZEVbDSLhKy9SoXLnXKKdLSsar+GZm/RPhZ6fYfxc7qzIypvcs7k7
FUiRs4p2MazoEZfi4WqDh5A8+uEaZy0rYi/jvMzZ+wAseNtxJ96zosp18vsz
9Q/g4LmBYtsGVjRpsWssvfABVLxdWXzTwooMo1jkQoIeQFfC4du2PazI+6ZO
nbnIAyCoPUh9M8eKHDLHp5V8kiEx06HFRogNvdGLXd59OAlu+YbdDBJhQ1PH
NX5e35MEVkY5gmlibCiXC3eriz4JpNl+3voqzYZ8Y2UqhgcSodX/tMRxZTZ0
WX9CfzQuERjMRWM5jNiQhzKoMywkgA8v+eybcDZk7NvzM+BlHFgub691RrEh
rZfKv37Gx4HWN7782Vg2FKs0fMvMNQ6I0Yabwols6CDl5uIH8TgoXasvvv+I
DXG5RZWeeHwfJn/kcthWsaH56LXzz9LugUXKlQ6OCTYUnfG69EVuLPC/Ytvv
Ms2GmE3PM5XcjoXfnW8cW+fY0Co381rXlViw5ybSR62woTvBvLwJ/LHgdrf5
6A49O9rR6PBpyoqBsFC5jEV+diRz3wdjfBINha709j+N2BHfcpHtzKdIcL1X
Wq5oxo6WBtIeXS6MBNmiy9u0T0I0aSYnMXc/EiomqlINrNlR39PwlzdNIqHO
1rn18w125D44u802FgHfL3XL1sawoyFuBhNtjghY13q6kfueHZFRpRvJKwyC
anPDmxrY0do5qeY9l8OATiGTc6qJHc2177yR1woDFsEEYYU2dvRTa4D1NU8Y
8Gz46Tb1siOTp18+ztXdgaMl+hmTVHYUTXpeych1B9z2rJyQF+FAhV/fm1hE
hMDSvflGUzEOxHKLR8PZMgR8GKb0Aw5zILm7zanPFEMgaOGX9Uc5DnQ43/hT
4dhtuNfaEmOqwoH+E7zs1KJ7G54HZ/X5m3KgFPtDder7goEypuHXGM2BDj2a
+IcbDACN3I48yXsc6Nq1drH7VQHw+JJFe3I8B5ra+8FDLTEArNo8D9o95EAO
Woo5ctoBMFD++OuufA7kNDP/Xa3SH7oC/wmdfs+ByBFM5Vi6HzQSalpbVjiQ
4wDdwp8wXxBuO70it057Hr+Pbju2vhAa0SmQvsmBmtLztuU0fUHtz+RNJwZO
dHvVKImd0RdqhngFWPGc6Lf724fPon2g4pmP11kpTpQ+Mdqgl+oNeary+9tt
OJGoVLQl8bsXNJ5nC9+050SXPL6EvHztBeSrlOnDTpxIsWeiyj3bC0TCHtZE
uXGivEO3fui4eEFB84Y5CuRErbnFms44L3hq0Jj+KoUT3XzGqXtOxxOe2xjz
ZLZwonX+R9bOte7w2Uv69ucvnKhtRzSKmuAOk+FM42vtnGjISmT6hb07SPz3
psq4h7a/wwIhLVzuUDi935RzlBONl4jZB19zg6Kb2IPQv5yo0GiWoZr/BpRE
+hAcZbjQdfHap6PlzjCrciUs8ggXuvebbsH/vjNIr2gt5x/lQis+King5AxF
trt/jChzoZKHNySNhJzhObxKt9DmQlZ2FTwJydehYIMqeP4qF+JXvMShGuIE
mTdcZY8lcSE8d1D8fj8HGBA1yTVO4UKSMcdq6M0dgG/oFN4rjQuNHjQy4z7p
AOln2ZdKs7lQm1WFzOOta/BQvKhKoogL+SyoRTwIvwaJoxMq/B+50PPcR68y
0+0h2tROb9cqF9I7JvCcYdgW8gyGLK+tcyE7+buftRtsoU7X1K1lkwsFi4se
eFVgC0uqZ5LuMXCju/O1GbtcbcFSTKqXhOdGTR9FXG9v2YDCnyVbUSlutF00
FFouagPD6WEBp2240QVl7+9ewldhI3nz3jN7bnTlmtGW/qIV7I7zzmZ14kbn
T+k1uTRYge4dh/p2N26UI3yu1cfWCiqvn2U2C6JdPz0nXPHsCtw9SUx2SONG
Vd8q+e6oWQLt974wup0bxTU0lR3NMge8rNN62XduNC9cTC7yMYfZENkzfd3c
6JyF8JTJBXMoEKnFJAa40XO8jR9iNofdLj2CX8a5EXrPiLl5X4K/Qbv0mOnw
yDSulbJsfhH62ZUadPjw6HRsn8IuHVNoVsyYHNqHR9nUe7o2EqZQeWWL25Mf
j5R47aancaaQWNZolSGIRwrZDoshX0xAx9hga+oQHq36cysUG5jA20yn4/cU
8MiW+Z14n40xpB/OKmnXw6O9O4pTogWGsLKs/TT8HB5p5w2+uBhtCAbvlx4p
G+DRIH32ntfOhsBsfPb+UyM82nONfnxF3hB8gjacg83xKMxAbudm4wUw+nZR
QsYRj7R+cbXF/jQADp/d+ffD8MiiUm9Mv0ofnKA+UyMCjz6tZ6i+i9SHj6yu
yeuReOTTGYv5mulDQM7HO/axeBSE4whrWteDqRYva5VEPPpwra3zHdKD5n2d
B2az8Wj4sMXuzl+6EFIfl65XTdsfx/OZH7pnYPpXfcpGDR5Bu2m5o8gZMNtc
TnxWh0c6BGKa4rY2SCtZxO6qx6O8hNTg2y+1oa9YLKC2GY+2kz4UtvJrg0La
h8tSPXj0dDLr2dq2FozfWBRgX6DFp/EsIXZSAwzvie6vpuLR+ojIybHPGlD3
/CKv4xIe1Qk5DnoVasADyjvuj6t41KzE4yLsogHI/C5d4BYepdK7cjVR1SFT
S4Q8zUpAghvBzBRGdTi33/TpF1ECmvfO9b6RrQbpmGz9ZTECMv30QWbdVQ2w
EtzgrDgBfRJZq/qiogZBqA7PLUVAe0Pyik//UoUX10SCjOUJqE5HNj5GWBXY
yheNhlQJ6Ft0YfP861PQohVPN29GQNr1qi7VRGUgcjntD7lEQKsFL1pipk+A
Va+6Et6CgPLiHiWkNJ6AteurLgpXCOjOrlCi9c0TIJZg2etrR1s/oavjXe9x
iOiXLN1xJ6CKb/6t+sVKoO7WcpkQS0BN2nyvkwMV4W/flHbTXQI6KvPeK/ai
IlRqcijcuk9A15qs62uPKoIYnyHuVwLN7vi8ztmjwNE0UPk8lYDO5nblvbU5
Cn1885yogID+DVcbiJkpgMen3fVuHwioJRP7LOt4BCSPHC8WbiCgbPnd+6i6
R4CSaZ7a00hAcXXnbpOlj4CZR47ryWYC+o2sH1WMy4HKfgk+5nYCyr8sm8DJ
JAc4z1Ne2QMEJHFMphYZy0Auv63o11UCSmBxvlQjLwknj0rJ2v4hoPvKR5fv
MklCj+7K8fV1ApLiOtP1pP8w4G5F6YluEVD3q6B3j8MOg0dnkVcQAxGFsvDi
+nolAEUt10tzE5EBg8/RnnhxIC9EXImTIKLjhSPpltKHIIj5vKOIJBE9O3rb
Wgl3CHgO8HpWSxFR+nclt7OYKJw9WxgxJktEjz8+3xbMFoWKgvZi1WNEJBhQ
7XWLIArh5jx/59SJaE+lrmscowiIfnyWev4yERUUayztIwpDh/R6wZAlET1s
DnI4sioEfqk6r5ytiChn47KUd58QtF2f+hZlQ0Qib3qSInOFwAsvxfrBkYg6
eElGn+WE4MOV0kA5byJ67qRacuilAFisV1rj44ho8qdRHjV5PzDaMrnnxBOR
4yjuS7ndfihtMw2WTiQi/oeQ9U5xP9DnrmXoPCCinmchTrW9++D56RPdoRlE
VNgsyHNKeB+sJteeXnxKRFqr99kmG/ZCokyjZNd7IirZMMhlOM4Dz09cZg2r
J6K7t76UACcPfNBcmZBvJKLdTotSLZQ9MG8u9jTpExF1a5REvkraA3pRdwUN
vxLR0MFq1RXqbmD+bbT7ez8RxZmy5b2oI0FgImW7fYWI2ltny35EEiA5K2go
eI2IIs8MWgbbE6Dovz21MutEdC6EqmOjSYC+ujN+cZtElLQWd3qIngBKU8VL
+gwktFRX2fTgDh6o6t4Tbdwk1GOssesaLzc4LDN2tkqSUCD1CFkpkR2sirQ6
LKVJKJY86F1kxQ5mNhFtCzIkpBUzU+klww7a33Y175GnefAW/04bG4gVM9Ta
HCeh4MmA7+scbDBmS/d0Q5OE6MXGH25l48C+a9Pv8BUS8gjmie9eZwLL2FO+
dVa08413PCjfmcAEBd40sCahdx4PXU8UMoFW6d8bPnYkVNHOPVNmwQSidzds
G66T0G7j5N7P9YxAUf+jb+5LQnpmUxKaGbvA9uWSUGwCCcn57f0W6kcPrmHG
W2eTSEimWsu5xIQefIwrezkekJAUbxKLkDw9xKz6xCem0taTYdD6MU0Hpcob
m2nZJPSmUOSHpw0dbDTs/PyvmISucoYZc77+p8bwwLrCqYSE3DWnzrz0/afG
Yd8QJ1lGQvIkbKTz+D81AeZwrdIKErr4jtk2snZbTessc0VVNQmFh+HyH33e
Ukvs4ohraiEh9XNPVVrX/6pl5t9wimolIZ8UPr6O+r9q+d4dmjptJLR3oKpT
Pfav2muexL9tHSRUIHc4w2v/X7UhC5JT9w8SWhmo56dobaiJU/g0yRQSCnuR
a29Y/EftSGWAQMEYLR46fY/G/P+onYwc3Lg2QctP98SlIZ0/avri2eVT0yTU
12PgMz+xpublIiSwuEhC2lfNFZMk19SCVO5sVCyT0NOjKrcOba2qRXKSe7xX
SShH934iT8eqWnpZ/r31dVp8TYOjOW6uquWFMjrW/CUhf5tyHF57Va3Y8JpG
0Bbtfr0ez27wrapVHmw+oPaPhBY1778VnVtRe78strGzQ0JOT+iTFRtW1P4H
WlFTAg==
           "]]}, Annotation[#, "Charting`Private`Tag$14328#2"]& ], 
        TagBox[{
          Directive[
           Opacity[1.], 
           RGBColor[0.560181, 0.691569, 0.194885], 
           AbsoluteThickness[1.6]], 
          LineBox[CompressedData["
1:eJwV13k4VG8bB3Cy72OmlAhFdtpUFN1PSdaUtciSfQ3Zf5LsW7YkW7ayU5Ko
LHWINhJCKduYUSKyMwt55/1rrs915py5z/M83/u+Zq+9t7HTNiYmpmVmJqb/
f+aH2bMfcrxx6vzzNxP0f0Sso1/C4JKEBcicUTJbZXjr3esoCQk3SEiffDLB
MH/681ruIV8gMlEXWxnOb00WZ5P4D6o/xYjcZVhx3jFly+UWWIs8VbzM8Ch/
wb+Nb5FwjFK9H8ewVBnXMRo9BrhM69ibN4mYp0bAtXXxBNhk5em9zPCzAWLJ
imYSHH/HETm9QcRoHgYjiy6pEHecbc81houYRxLWte7AvxH3B2Q6ETvbfWf/
2rd0CBGrFjjP8O9s7bYVtwyQ1tZ0raQRsSTHTatl+j1YjG6uplCJWD/dNWNB
PAd67YpXvSlELPC92MH5p7mw2WGxmbVOxHbfHeia08wDfMfNpbo1ImYvj1j+
uBQCroVQ0bZCxLbRQ3pWQovAzU/SvWGZiA0QzfasaD2AV6dHRPOWiFjwI57G
pW8PYXLnxqUzC0RML/0X+1JRMbxovkRinidiosFtpotuJXD5kZZd/RwRa9UM
Wpinl4LCqurppRkixjFMkpkTrwQbuFXVN0nEhlpfBcz+roSxAEmaLJmIVZVl
t/95WgUpvio6fhNEzNDX0HZG8xHwOFz6SRwlYplcTZlTLk/g98OdhhJfiVh9
kJ6v365aMJs2aBYYIGJ5M8eFl0NrwTsk9MhSHxHz6sW7LGk9hT+PRvXTuokY
Pu/DtsVvdcDsE3fxUAcRo/M/r/RRfwYz5H26jW1EbDKi+OJC0TNYqF+9ooIR
secuYQXzbvXAe6R6iKWJiFkeUTnxl94A7+ZSPDifELEHnYXX/4g3wttYMktV
JhFbyW6QH09qhPJzOk/23CVi51y6yF+ojTC3nGwbmUrEZlnWzZr6m2Csf3hE
LJ6IqWoYnkiIa4FdPYm1JcFErPfJxjaZeQwWIntFpswZ9QKXDZ9yKyT8Hvvh
aUzETkpnnIhzbIXRkIFR8nkilrJSuRzS1wpXDiq0lZ4lYip3Bp3sq9tAsjon
9L9DROxWp6LeIdt2UB08PefIScQqnr6Qrr7XDoaW50SYWYjYl+wzLPs/tYNk
3Jf6PfRxTMrlcssutQ5ok7x15t/kONbJEq3MRHgLPrV6fc4vxjEhjWF8z7t3
8Ozw++Rx83Gs5knCsKdyJ1jLN6e3h49hM/iZJD27TqB/+HDE3W8MkwnUOyWb
0Qk/BKY2KU5jWJE6zwMytRPe3Kk80aM3hqV/THK2fNsFdjt7s2wJY1ggOXVR
26obPh7nUNxdNIoV8nRFCWr1gtrp2+sGFSPYKY0bVuE2vcCzcmEnLnsEG/FS
ODof1At2Zr1/W+JGsF1fbv/6VNULXodL6f3OI9idbAPdeFwfnH0zwU+VHMGi
9n/m3xrug+yzs84KucOYC/TlzPr2g2pp4PPMwB8Y08O1puHb/ZDAe/sFj+MP
LJtVdKSzpB/cKtdw14x+YB8+OotVfu2Hp4tynKsKPzBZ042HTicGQDwiqkqE
+B377SrzaIx5EIz6ypn7zn7H3NNvvu5N+wrVPAfJOkxDmNdPOXJ9zXdoKsVd
2ToziBFtvnO2ffwOKZ02ldvlBzGToXjl7snvUNFtXLNTcBBT7Zr67+fuH2A0
3Xh8amwAY3laihOK+wF1rNc+1fw3gGWH7j0VZDsMhhl7dFeq+7E2gnCOGm4U
BrXC0zZZvmDce6NlxlWJYJNTRX/M342l4LrkH1wlg2zy1tYu5deY/bApxvLp
F4jzXxu/a/8fXH8bbe8tMwNbXqErJlda4akPr8ku3TlIkL1ccPjQZ3hww2Pm
4KUFcE/vsTsyMwgHW7kocdYLMIa/u4/C/BVaWSvYxh0WILK0Tu2J8FcgJk9K
JPssQIms/8kVna8gVmR9aTphARrtfDSHyr5CbseFjgctC5Dzw87gn+03SOdT
KcDvWwSbI1FN/u+HILJww2hldhEKbWK8+12H4eLBl9cVlhchiE3cMyB0GMTa
/O7YUxdhcofwJEfaMDSRZnp72ZbgDiFZ9t/zYVja//3CY7El6Ky0On6AdQTs
HzWcd764BIF61Rr590fgdKOX7tCzJbhp1pwe8noU+PXk3QSalkAx8h8m1jsK
Iz9+xp9rXYL4ydjsuolRCN6w+lD/aQn8cFZHK1nHoBb0te/8XIK1oF1xfbpj
IPFORktv5zJMRHuxcveNAVM/EbWELIPD7JIu9cs4RE+/fhASsQwCkR2Hhsnj
wMWUv00tfhlmwuoOVa6MA17JoqPh3jIsOdU8Y+Uhwv64Pu0ntctQWmIlNKdA
BL2Tbwwf/lqGnr8FLSMeRLhbXGwVb7wCSwPJXAqTRNjVFPHqnMUKeDtbtVv8
IUJer60Y29UVOOwYaRy2RISyTRFixLUVECwtmK1gmoCXlzIcbsQzvg/vV6JE
J2CEJ8bd6/UKfFJJyb1oPAHS/s7BpvKrMKkl7oqeT4DSiXGTwoOr4GhaX9De
PAEqTJcPzBxbBYm2nX812ibgTJLur1uaq5Cf2P5t56cJsClRNK22WgVmkdTh
qxMTkDmwdGBb6irUvtsgaXOTID/Xg+f8vVUQCtBrVxcgQcnVyV9Z91fhb1hI
m+x2EtTNDuYrVaxCnVCj8K89JPjM2shj0bYKKKNOb+0gCdiO3pp6srwKuAiS
wTUzEvDS19/QqKswGj9xZcCCBPg2nwItpjW4fOppxmEbEkictzcb5l0D4c3y
uAFnEqg7abWzS6+B443y1JogEvjf4ym0vrwGh48u7mvJIsHkapY5z6s1+By0
FHaujwQPTx/xG21nXI+7/3V4gAS2yZ9Tn3Suwb0qhy3nIRL8kGL7aDK0Bnto
F7ptxknQZ+J7Mm95DczlbO8PzJLg9VMDCSX5ddifZrV3mI0MoZtT6lsH10FQ
vrPyMycZ1HSjLPqOr8NJGovCSx4y1BMb0wO01sE5bHzfNUEyVAnIsL2+ug4X
4pmP24qSIesa84xh1jocMEgPdz5IBtPGPPa9BQy/27fQdJgMeDZVyeWSdWDJ
5ohnO0qGlDwvq6y6ddgKeqFxU40M0V3Dn8e71+HXz0rR9dNkOLMz6M/TgXUg
cRXLb2qSYcsezxk9vA532MNvULXIEELTOS07vQ4C4w3LA7pk8JF7/syHlQLv
7xkW7TQig3KAUe8ZHgqIrV+X6TUmw5/W2dnteAr0OPby3TIlg/NlSelGcQqs
v5ljb71EBuu4tGzmkxR4zbyM77Emw+5+hYb+0xRgX2bfOGFLhiGx932lOhT4
L9nRPp/Rt0yfb3LrmVOgfjbyuZYDGfR+ut9Mv06Bu0zOM1KuZDh3U/LR2WAK
/Er6RQc3xvvsGPmxFkYBF15XZmN3MpzQOq96JYkCiUXEdUtPMhwbZXPhu0uB
xfrCBaNrZDgc8PoelkOBlkfzs+BFBvnSA8uS5RRQ2YZnYvYhg7TG771fH1Pg
SfoPsQGG9w0WXYyvp8BjKwmjguuM+tnwNbNtFPjtbsi0y48MQvmdIwUfKOC/
xzLmPcP4o1E8Rj0UyP4qp+zlTwYepxXXhhHG++vn0IsCyMC5+SjLhcyo52W8
rFIgGVjvOb0TnqFA3K3hhFqGmZTEVrsWKJDH/15SIYgMGx1fJcPWKVB6LJaW
xzDFKtX44D8KFO61wLMHk2FlRTuCxEoFZf0Yb2eGF5KYajN4qNAbbCb0muFZ
qcaxc3gqsNYJ8/D9R4bfLdf5qLuo4KQqY2zC8KSpvHq1OBVGbg3NpzFMnCW5
W0tToUE6+fdbhkei7+cIKFHh81wlWmJ4SNT0Q9sRKlTXZm/sCCHDQD3vut8J
Ktyz/iBxiOFeg7f7pU9ToXXu0VNNhj9N3jQd0qaCtTX27DzDH0KPRSUaUqGx
+KbCBYY7ts8/VTejglm1+x4dhlsflRP/XqECXZc/RZXhlrNXBR7YM+pTXY2Q
YPjlyK5TJm5UKOB9urnFqKfev8+TzYcKAUpDbN8YruVNvP8ikAqqPWyFpQw/
KjnT6XaTCj7T37s9GK5Qp1NEoqlw7QA1U47hkoFnMp8TqWDOybc1xlivIk9P
8/A7VFCLa+dOYjiPdX/M4WwqiDv0vD7IcHbe6LPJAirg56fEuxn7kaGSScos
pcIx/MfDdgwnO3Igeh0VjL3/hPsw9jNxA/N63EiF69ub3/5h7H9sRnC+bSsV
5Hf69NgwHNYxTWvvpgL7n29nFRnnJcTqoVzgABVoCepNsYzzFLhieVl2mAoa
+BmO775k8JL61JD0mwop9DpwYpxH95boyVPzVAhNeXikkHFenU01CIurVIi1
iSL0eZPBJrrGx4yFBq3q81WijPNuOJmmICZGg/g/RzpMGHn5pDA5YCVFg7JO
52RbRp70/Y6H3ZenQciLAF9HRt50to317jpOgy6lsiILZ0beJBQCCRdpQCtz
Z16yY+yXS5i4sTkN2oQj97xn5Bee9H1Is6LB27VXgfcY+VY/FSzC70aDLcmb
i3sY+T9q9baVM5IGcqNVYWOM/lBfvMtdO54GU/850G6aM/L5x4MQm0KDzb6T
g0JmjH4TgndmuU8DcVxoowqj38hm2/L8e0aD9Qd7GvYakEF0gGq2/JMGyj3H
dDpOkSFX5PzWoVka3GDrfU1XJ4OwQ1GFzxINjr3x+KF4kpHXpXP0uX80sG0N
xIceJwMOl1H0eycdIkz+bOs5QAYWA+U/o7p0uPxmZkBPnAyRdyMyRC/SYUxk
x3OxPYx8Dg9oXDGnw/Nl9+jZ3Yx8ut1IG7Knw6GEGVqAEBnW4j4c7b9Bh31z
Iz2Ijwwz7fbhHx7T4YRuiVQTlQTid4bcU+rpUCXDXr6+RgJTG0Mz02Y6KOTQ
riivMOYHRU2e+IEOK4TEgLi/JEhXEhxYJ9OBpq4pME0iwcksTEZm9wY4Qrek
dycJktxFe2JiN6DQq9zlaQYJ2o6nN+onb8D4hRqKxB0SrLFylghmbIDUe+1b
ickkuFq4HJz/YAOcRykx+rEkUBno3NfQsgGPY5hlYhnzcVTjv8DJpQ048TxP
lnyZBMqCX/do2m5CNg+O6LKTBL+Sf0Xec9qEmzWqGh4ExnznXp+a8tiEivwF
VnfGfOdl3VWXFLwJu8XDf1twkGBmzeLc1zubEPnsbCrL+gSUjox6uXVsApbP
PRg5OAGiFT+xVLl/wMTlI2CWOgHcsGo3svwP/H9EUJ3WiaA9Z7m+z4wJbauX
LHXkGIehN47MlorM6LJ0QsYB8jA0xHfYSKwyo+u8hJffvw2BM1sA8fPnbUjj
JWvEt+RBcPC90cCby4JqmmoqtbO/wAEXhc8GdqwIvKNWvV/1QA9ekSdAjQ11
pvW6y5h1QnNN5H1FFnY09H3JzeXLW7jBLH/x0yg78lVa0Lt3uw24R0J0vOo5
kNDMrbJds81wLKiSL/UFB1rU8Q7P6m8GO/zQlydNHIjHbyxYurkZXuoctV5s
5UDLtb+e+Sc2g3PD/HX/bg6UVDP4rU+uGdpSHO+H/OJA44YFfxI9miD4tOHf
2F2cKKx2vfAb7SX8LNubURjKia7dmvBr134Os9ETVJZwTkQqF/3ufOg5LNk/
sHWN4kT5/+xeiIg8BybxvQqHEjmRu/eeN41/G2B3lsSbN1mcyEq96Oy7zAa4
GCe+8LOOEx1XCkvZPVMPLS57DBSnOVF3/FDdjfxnkCErzNpoxoVmLzT0XDv6
FKxspMvJl7lQhTDR1U3qKUhlHNHjt+JCXzGPRF/CU6jfOp/mYM+Fqo/90X+8
WAsDXyNF+b25UAG7AF9HTS0QYmZVHOK5UH/+vTIfhVpIn8Cc+Jq50OTcsVdK
1jWQluv83k6CG1HclZkON1RBUGCkX6gkNwoYG+rny60CG+MC8SxpbrSj4JU9
060qUOT+GvRJkRu9UzgeJqdbBR//05I9rsaN8tRWIHGsErZZSCXwGnOjnQe8
U0P4KiFgJ0nvRRQ3ujRx+0bzjXKwWt5c64vlRt+ympPMHMrhbI9w8WwCN/qj
SGlk1S8HfJwRfW8a4/e+zKg83F0ONWut1Ul53EitWVNzqKkMfg8W8to3cKOP
L8kh+7dKwTLD+jPvFON+jZiAmcwSEH3GLeIxw43KPey+H7lVAuN9L1w+znGj
RyZDRzJcSsBRAM8cu8KNRPa/up2jWgJeie+ObDHzoPv7lbY1DBdDZPiBnEVR
HsTkYv9HQroYKj2ZHb8a86DMuYEIq64H4Hm7plbFnAfNySlkOD1/AMpVVzbT
LXjQmzaf/KgHD6BuqiHzwlUe9Dtx1uxf0ANosXf/+OEaD9LvySuf3f8Aei/3
KzfH86BRR9X9hTFFQDlbSi18zYN85bzvjpUXQGhzYVRHGw+Sfoupu8cUANPh
XL7pDh70MP41706HAuAQT917uIsHffnz5XW/WAEIUYN1O77xIJ1vqdjXrHw4
8tgg5/cCD1Lwfrs4l5oHXjtWVA9J8iLmb2Okl1m5sHT77xszaV5USNiddeK/
XAjYNm0QIseLpnf4+/2wzIXQ+dGr7Qd4UeCDfdr+Yrlw++P7eDN1XnS6auQz
X3kOVNy8P/SfGS8yx4dJdrzKBvLPM8Fv4ngRTfcwdwFTFpwp/PxQ/jYv2qc3
9CyQnAlFly2701N40XznEX/vd5lg03V9n8M9XjQpkPChNSkTftQWfWIp5kVw
SOfJ+O5M+HLjn4TWa160tNG5d039HrwRbPr4foUXXX7pwf4u6y7s7dJaOUDh
RZkeRaKeYXchPLpPLJvOiwKuJE0oO92FU+u//Vy38aGypgB+7iN3oWlkpxgX
jg+Znzfbtb03HerKA3z1FPjQnds56lcF0uGhxiGRbjs+1Ema9ZZ+mAZvDLmj
6I58yNV+XqwkOQ1ItuQZOVc+JF6iwa/6XxpIRt5rivXiQ+3R3jYPL6ZByTuq
BbrBh6Lm8vPCmNKg9MKb7GcZfIhj3fRn/IcUqLAzEcp9z4cy9p7E/QtMgg++
imEfOvkQ96bFtVMmSfA7iu3XWjcfiomwiyo7kASyZS8aTAb40GOam/bc79tQ
OSNixjfBh6o5DQ4ZWd+GKr/Ju+E0PlSj7TBtfD6RMTcCBF2U+NEDAZFHWrrx
MKtuHRlzkB/Zy3660C8fD4orZ5eLj/Cj6kGxn5G88VBlv32QqMaPUo8EOWn3
xkEFPMu2PMePjBYvattbxEEJdUHc0JYffTp8Wq7jeizkXvNUPnqHH3Vf6sy2
a4pm/P8yLTTJYDzfP8N9sTAahEdO4nyz+JE73cS6MCYasvV4lmry+ZGItPIh
M6NouCdT1SBbxY+4T5112T8TBWkTU+qi7fxoj4U99dTeKIgzc9BnWeVHOupm
1uklEfDwwoiVE4UfTdZ8sGu9HQEtumZe7+n8KETfuoXPLwKWNLTv3N4mgJjT
A2fZzkSAlbTCNwJOAEUt2iW6ToTD4fUleykFAVTRd6Xi+/5wGMuODNGyE0AS
ezUncAk3gZpOv13uKICunK02bre5CduT/fO5XAVQX7On/SOVm6Ab4dza7SWA
FHX93fZOhEK9mx67eagAOtkVFZymHgqJJ/DpzlkCiFgVa2u4GQJHRx5UxnUL
oMN4gwN1JcGAU3alPOkVQJ6+92Tlo4Jh9pay9lC/AKo00ffqsguGEsnmSdkf
AuhSz5JSgngwbPcYEO/8JYAmB489mc0LAlooiz47Ew6lcF15pVQYCN95jrXp
CONQ9Avce+9Wf3inkvN7ZDcOnXzCdfF1sT/UW28IXBdluEJg8mCcP6Q9eWOT
I45Dlgt5KRGG/qBjcmFjej8ODRLWCj6N+cHLXNfjtw/jkGTsVOUUmx9ky91/
3K2PQ1PKX31kr12HleVzpVHncSiI6496sfF1uPB6KU/tAg4pZLkNnFG9Duwm
ekmlxjgUYFr+dJ7lOgSEUt1vWuCQ2qKsJj3PB4x7LskqueAQ59u2287V3sAb
sL04KRKHzKNC5tdbPcEVWnPPROMY/QifE5zhCe1cnumUGBziH7c4o+rqCSEF
7RGOCTg0vyPxkh/OE6bf+15VT8Oh5bm69R4HD3i3u2/PbD4ODZX2Bo7vcIdb
rcnZ+o045BS794R+qQvMjLZmUJtwyP1VcfXbcBcwpy+nlbfgEM9R9kk/KxdQ
PGaZwNKKQyUBCcXu211gqFo6pPkdDq1tlGk2xTrD4SzsisIADrVWx4tW+TvB
r2uLYjzzOGTDbd6+298BjG5LiTQu4NBLLSHtDDMHaKm4tNNlCYfuCxlMqh13
gLvkVwLtqzhkd6MolpNuD8gikenGBg5JHA9SexxtD7lnJUkzXILI9fLVHHKh
HZwXMSvtlBJEXUbsLTumbSF7Urn1irQgwt95tPWw0RYmH3MOz8oIolH+8y7X
E20hFLXgBBQEkacGXO1VtIVHTpKhJocEUUk5q3qKvw1w1y4aj2gIIh9strND
wBren01h+mvOuL7T/QeHnyXg+V1Fbl0WRMllLS2S+pZg8+30MZylIFrfzncx
SNIS1txWPQ5bC6J0nks+HQMWIJ1q9S3QQRDN5Jxa/6tmAdHf5Wu2vAVRxpyV
kC7/ZTjt9f6KYIIgwmn4P0ajZkAbmj7XkSiIOC4ohjE1mkG9Ju/hoCRBFH4t
azslwwykhY04R1MFkYjQuGXyeTPg7fhRX5EpiMqUA0e020xhSPgvHyoRRJxp
hfZNdSbg83Z7qxcmiEz/Lr2/12wE8gePV+9tE0QSHD5HX+cbATnXInPgjSA6
qlNtuSPcCMx9CjxPvBNEe8Zr2gy1jEBdRFaYvZuxnjqxH3/1XQTO6yd9838I
orport2/fl2AQlF7qU+rgqhB/np1yiMDOHFEQdl+XRCRT+vKDYYZwIDuynEK
hbEeuneKbY0MgDMoVl9qQxC98AgTgXV98Omr8g3dhkfnyjIJYuf0AcUutyoK
4JFaxGdHvgVdIM1HWyfL4lGU8Giuka82hLIbukjKM5wTfNPTQBuE9uy83qiA
R613VHJbpbVBT68y+qcyHn0/136WMHIO6kq6qzWO4pH4VPk7C91zEGUhRJs7
jUcGPx79k1HWAqn28kzDK3jk/Z2vpFVMEz4rUkpGrPDIWmBQl49JE4IzdZ65
2+AR/y09ofiJM9DlNt0Ta4dHkzIdkhylZ8AXp8CFueCRSNDUfinlM4BZ19w4
4I9Hj9r1vIt1ToMlpf4qLhmP2D3RuswJAFZ7Nu+CFDzKc1v+YsMBUNNldlMx
DY8+C2nKkAdOAXPhWo7OXTwikC7GfPE5BRVaqv3hOXgUcjH3HHqkAavpzVqL
pXiU8jtXmH5QHdKU3sh/eY1H0dO7JSW91aBC9QpXZCsedZVN1D47rQaY5srU
oTd49LOpLCptuxr8tZAuvfMWj76wK4spNauCfmyiuNEnPKqofWr2k0cV2MeN
t/d+x6OphTGruaZjcCONvNm9gke7pgN/XjZQgfT7oSM31xj1jhFdsmVUoKps
R7MSBY9Op15MFWJRgaEW7eBkOh7tKRpH3U1H4Nh09ZLBNgJS+ngySFjpCCyc
9p/qEiCgbds20HfRw+C8zNr3UZ6AzMrZqn2lD4JN1dnPVooE9PzXZGUn90Ew
t4vumlcioGcyDSUFYwfgXA/Lux2HCOivjYpM8/UDIF29rdnuOAGVbLHI8eUp
w097plKqJgGFH9hxtphJCRy/0IPlrAkoZuG4gBK7PFglnAxssSEgUWmJu7jv
cmCKbvhduEpAg5bKyxqP5OBsDe1agAMBHdCqivY3kQOpRKp9mxsBhXiINJ0t
lQXy6XUDi0AC8n/IMiBoLgP2T5ckElIZ9T5/1h0+LQWekSYbencISN9mRiut
VQoCTOq/8d4lIN+/n1L/ZElB/GpASlomAZXpvb8dpS0FNWpUelY+AZlfSqDI
V0kCtW3ra1k1AdXxSfz8HboP0r7wJne8JyC9UaG8flMJyC2+5hr7kYBSNqf/
XlORgGL/z5o6XQR06F+HtNZ2CXgulEbr+syo70/JIaNKcRixJLj2DxKQpbn0
L+9aMZAhC2uSyATEviWqpD4gCgfrQ8RKfhIQful5S3WuKJyIGaY6TRHQLErQ
i7cTBQOZ/NrpGQJK/0uzjFkQAV8PCbHFRQLSEXTyCCGIQKh6BLVumYDubJ5h
0hjdDTF8pAH/VQIqvXu/3Ll8N2Q/Kb5NoRAQTmrccFZ9NzwMZ3VpohEQm4ox
6Rznbqg2cjoTukFAUUkGT9gGhKF+37s9p/4RkNG+iG2yRcLwelmaurVFQASx
T3KPPYXhf05cGHU=
           "]]}, 
         Annotation[#, "Charting`Private`Tag$14328#3"]& ], 
        TagBox[{
          Directive[
           Opacity[1.], 
           RGBColor[0.922526, 0.385626, 0.209179], 
           AbsoluteThickness[1.6]], 
          LineBox[CompressedData["
1:eJwVl3c8Vf8fxy9FtuteDbJK2dLOqN4fUnbKykoRGRWSkVVGyV5fWSVlJWS3
KMcq2WRzuVx7VSg793d+/5z7eD7OPedz3q/36/3+vD/7rJz0bBgJBIIkfvn/
b8oDK+Yj1t5nt43L8N9o96+o7RDRviJiAowZ8EXO+DpG/1YRKCJiD/7BoRrb
jJ2xlMoIYSYRT3At7z3ecsUPu33G7c6KcAh0hwQpy1+Jxjo27OJ+CydBVcxo
Dd3gJbZjgCY+L/wGulQ3bsppF2KvGlLvzgp/gtAYj+KdkpVYfkHIwO1DDaCy
9ksu7GQbNkOaCde0bICOaem1Eb02TNxd86xEXAM4Ciz/EHNqw16eZn81utYA
Xntrzni9bsNi68Nvmn5thCUj+jPV3e2Y+2jUgpp5MxxTCRPVWWrHUtkbA3nO
t8HYw5H71553YGfPeJv7WbTBnWCRsrPvOzCKo/SJXx5tUM4gb8PS1oHt+RE2
0ZTTBqY/X4WabuvEYhK1NYKJ7cD2h413xa4TCzzYwkUfaAcFvo6gNbkuzBba
k+ZcOkB45tXX23ndGCFtuWwgrAOs5Xo/LFZ3Y4nbBSgNGR3Q3OjVfL2vG/te
f1PoTXcHxD23ZPnL1INJGGym2Sh2QkmRkfrG1R5syk48b4ihCw7dNs65xdqL
OcT6VrRFdwOz+PssNZ0+jPFvGhV70w1VDuPy2df7sOQr3wkF1d0guofv0s97
fViDAPlcxJ9uUGXxq5JK7sOkX2fXaRj3wLrn8zSr8T5srryjrVq4F/znXhlW
uPdjjuOSo6X5fbDkspyW+2gAG7boY6mq74OUL2E5i08HMP3e4EPNY33QxNTP
sOf1ACbfOOk5zt8PPzca9P59H8C2FWUSdz3ph/fiDI6H2SlYos++sx7XBoDN
q/GFRAgFY1tuuxHoNQDLjm+2tBIpmK+TX0jU0wHYc803Svs1BbOyona+bhwA
m3PJjOO1FExGPeVW7ykK0NebHO9uUbAqMl+SAnEQ6pmKVmccBrHjEd8rzksP
gjTxnGC/xyCWxXx/7PKFQfAIlwjIfDSIha91yzn4DMLcPametpRBzIga9y15
ahBmdhHQ/ZZBbCaH+GejcggKil6eoksMYeYHKvlYKENQtfuMe96xIaw1xQl4
V4bgd1/wsRNnh7DS6JZQGVkquM4oE/r0hrCH7uH7riZRISn3UJ2d1xDGtu+R
OFV+GExUJFpfVg9h30/HyD04PwxXuPo87zUMYUHGL04J6g3DwvcD/Qd/DGGM
0R/VzG4Nw6UTAumSI0PY+tacbU/KMPiX25bk/RvCPvKvO7nnDINvZMtNn+1U
zP3kjvs7PwxDin1qmjQ7FVu8sy9Yv20YXHSTUiX2ULFZimF2K+MItE0lSD8/
TMVyVq0KHblHQDJuPcX2JBWz43X+yCkwApX2ea6k01RsTCv0u9aJEWB/nAbM
alSMUlYxVWc7AncztadszKhYcnfj75uuI/Dd6cUemetUzHixd5XJfwQy5RRi
262pWKfkEotq8gh4ffUwKrtDxZoSxSUrm0aAq0mDyviAioWWHj9yrW8EVvp2
7qzxp2LqbcoKW+MjEDF7PMDqMRWr3WGucZo+Aoe8RTbPhlOxAFH7ywPsNJh0
3cfsE0XFELibeO2hAev1IeXEWCr22T3a/uMRGhiO+Gs6JlIxr9iUu1fO0kDY
+8tOiWdUTD4/x3NZkwY3Ga9xV6VQsdLx2pDj1jR438YaHo2XigvDj5gOZxrc
WHjCVZdBxQ4LUpNcfGlwNsuwgpJFxd4arL0pjKfBrusGWZk5VOy2M3OxbjoN
9LX4qMZ5VEwqnFz2s4AGSiGGF2bfUrGp1yLVEZ9p4BuSRzEvoGJZNbINMvU0
mPIcT3tbSMWsqYo/Grto0HB2NmmwiIrt31Drd6DRgOtWU/VcMRUb3mVIY/1F
A1X5cqGBEir24qjVTPYGDa4/4CzILqVi5hedFtVYRuFG7mk3w3dUjN/BZ32C
dxRqy8ZdRnDufRzCGLRvFIpl6t9ov6di8a/i2Q4eGgWlfw17E3A2+JJOqlUc
Bd5niw2VOJP6CvlvqI2C45DDp3qc2/582c9oMAqudP/pIpwjiY1Sr66PQmH4
m6ueOH86JfjuouMoWE0cEt2N85iFE2x6j0LDIXPfSHx9YlBV/ZuQUcjr73Oi
4t+r9JZscCVhFDpoflusON/stBnanjkKpqWmslx4fLEbH+yKi0chWOQVYQ7X
48t+tqVrlaMQrV3hk47rNaVh7svZMgpzL7WzjuN68t7N31E+MAq+H3cFpOJ6
QyIh1m56FHR1d+8cy6ViDpiewK6VUVA44mnNiOcrfiIjq2b7GJAlEtzWX1Ox
Ks6Vw3dJY/BhekOnKZOKzR3XKBcSGYNSJqslj3Qqdi5wvtVTaQwmzdi/mL+g
Yo45YCquMQZGOsXzT3E/JbfHjHUajQHnyL7tb3C//RY+uSbnMgbMYrL/zHE/
CqgFBw4+HIP+q9nz/yKpmJpjP2dYxBg4CeRS74fh+fz8YP9E9hjEhHFObAZS
sfrRtrz/3o/BEvM3VmY/KvaHTfSUcu0YjNz7oDPtTcW0TOq0nlPHQNdy3ejs
PSq2+pfbTW/XOFjlSlqI4vUnKmhFp4uOA6996N0tUyp2UbU05O2RcXjZqj5b
YkjFMmONX7DojIP4++vy+ZpUTE/uVV1F4DjoL8dfGjlKxR4YLV2+HTMO4wlK
b6Nl8K3D9zyFL3UczqxPVfGLUTFC0/Rv17Jx8KiIAwzvJ2/tjvJLL+Dr9UU0
am4OYb1RjzJ6t8bhMTlRrP3PELb9Q/ehII4JOG6SE390fggzZfI+NyI+AaK7
Pk4GDQ5hLGk1txMsJuAQZbDE/fMQZjVggG1rmgD9CL8PD+7h/fLZyJ27fRNQ
SrjlPmM/hBWbOgpQJybA6/iwy7HrQ9i2/ieeZQyTwCrx4+pV7SEso7fs2N1T
k6BTqRJPEh3CJrpEsofSJuHw87wx7oZBLPLpWyPtwkmIaD79xKhiEDtpqMhU
9mUSwqfiLLyLB7EnnfpWT3snQXr765/XkgcxiY4gAW2uKfAt/3433m4Qc2ib
i/7kOQWSJ3baf8f3G1K0J4g/mYKwGWG/9d8UrEyX+Wdc3BT0NHVOsY9SMPZW
YS3ngikQ6rbbaPpGwfKa9ZjEx6egeEZUpSGcgv1s+OgZd2kaLpMCCqpJFOzu
10dWTuIz8OD576bTOwYwobELzMvHZiAyzeBF8XI/1sjImuODZuDj6HUNrol+
7CCKWAgxmQGxc3keHrX9WF/ZU7+MsBmY736nTvbrx5QLs170/ZoB6Z9PM/wX
+zCeZ9/7z32cBUmhvexfa3uxImcO/T0a8yCYuhoaLNqNNSWTPd8azYNcrVP+
YfZubKKWP1XFeh4efs00q1zswvj5JGdvP5yHj12Hm+KrurBHVecDq97NQ+jd
l8aiFl2YEelhicP+nyB/bHStK7YTWy9ZIH/Z+AkCN8vlfWZ/YK+8b80cvvIb
7i/kJX+oasECUjcv/5lbgO25bewZypUYoWMYffZagtjog5M79QMwMdeb9w2k
/kKrG/8mf1IFjP1NMGL/sgz/7Lf27BxqhjTlY/cGa5Yh6u9x9WD+FrgW0RJV
0LAMWqYiMGzUAv0HmOr1e5fhuV5r7ZnWFmjXd1F6vrQMRe5GhJyKVqgo0haR
lVqBx1EFp7ib2iDhDsPMxYQVCJuf5RFK/gGa4w6+sXdXQaM/ImDn9m644Cua
p3p/FYK9FoerBbtBZSelf/nBKgzqmR6xONUNiud15M3CV2E86aWdhUM3SGXK
LYm+XoUvKZxega3dwG7zx+4dZRWmFrwb9eJ7oGnM16BXbQ1sFVz+vNzZB999
TgaGXlyDt3V7On/J9EEt76+i04ZrsOUtNCSl2gefVa9zv7Jagxu/U8HGpQ/y
MlQa7H3XYLs40+h0cx9EWO9AG8Vr0MFraybh3w8Xx6KlhYTWYa+DgY5s7wA0
SY91mh9YB17bdI2g2QHQunfqwTOpdTCK/dvftDUA6oxDbXtOrcPhkdTU/Qcp
oCIi7U6+tA7M5Cczv5wpcML8ayVLwDoEzS3HszMNgkDnmuHS+DpYty1wCwgP
QfJeHfqRuXUYUNGU2Ht4CPhuvMx2XlyH2k3RnTuUh2DX4oWN+a11IOe9Ncm0
GgIiMe7l1O4NaD/RxL2RMQTbtA/NDmpswEKppN8OMSrM1Fj5fX+7AZ+XxJ58
5RgG4Zheh8jSDXgyCbO5vMNgYHHR0KB8A97fN6wLEhiGilUFqeHvG+CvOTfC
JzMMsbI8nSujG3De6JfPO81hUErAxMX5N6GxWPxK1eNhCHcQaH0ctAkDAUWl
YkvDUHUq9pNWxCZ8ucl2I3ltGJa3s2TwxG0CRWePOyNhBK6nLt1PebUJHxXP
NxZwjMDxzob97z5vQs2wotLDgyMweMbTfWxxE8gJ9RkLBvjcwtMteO7aP/DL
DiqVyh2BiYiJgKc2/8Ab9ej0FIxACtvK5OStf9B0THHcs3QEOLbvKQ6//w/K
DNrJr76MwMyyyYXumH8wttc8yaMVn6sog472tf/A7c2DnAsLI2Bu8rOjvOEf
pK9lDun/HQHe7i15rnb8vq2w9JW1EQhoFd5WMvgPijfKeREDPjdUWyZsLv+D
IVEtq2dEGghkj2NRkltwxyalwlOWBp0Hlg/Q5LbA8XGK0/RhGoS9Yg49fnIL
7i1dM9M9ToP1ZHGDPpUtqBcZmPunSIPeCPup/eZbYNInemZCjQb/3Zsnvo/c
gtMzKT3j12ig+fufG8vTLdhHYLUts6IB4x2uAdNnW/Cs55rZYxsaON+Uy6S/
3oKBiqsPthxocNHkroJG1RZQhHYQHrjRgA3+WlKWtoA9r/B5aTAN7itLsLxf
34InWbmaImE0mDhnlh/FQAetweJZvwgaVKtXratw00HPvnP3vlgaeOlF/PdG
ig4762ejB5PxucugUiHwCB3Iu6N0F57TwOjKEtVcng4SfKwH1l/Q4Ki5iQzx
Ah1yC2NEZtNoMGtz8Ku7JR18/xlOaebQwNTO+NYlOzpUsbR37cijwXeHMB4p
Jzo43xbf+vSWBhlOC1cHfejAEhBO2iqkAcnlwPYPgXQQ9D7HEl1MAz/XKznR
oXRQUhHT3l1KA3PPL8vnEukg9nXvD6YP+Bzo/fu5YCodCE58Qnc+0kD+gei5
lUw68OTsaar/RAPewJConBI6vA/RsrqBz5VN4YYSPK10UD/wH/OeKhooRgW3
zHTR4Tm4LkhV0yA7pty1lkIHydnHtsdqaPAofl+VxwwdOjJs2Q5+pcFiooHt
5QU6SJ0dUeb6hvvj2RNO6VU67LEZ4pvHWahtWeYXIwER+1mrwr7jc/VlIsGc
mYB2Cwg908Ln2PAfkh3fWQkoosxfmqGBBjX657JOcBLQJ+kyjzyc1zvNPdOI
BLTvuMFjnUYaHDFy1+bmJaAd/aMmYzjb9UQJ++wmoEbj7RvOTTTo7qv+aihE
QNfDgz/daqYBpxklsXofAZ24dIHWh7Mq5e8tuYMEVLag/vNMCw28r3LDcwkC
oq9eHE3AuXhIgsQqQ0CZPYJ1kzhPX1MZd5MjoDMU/1TZVhqIjJh9pB0loIKD
F13scb5i5Rame5KAkuPNzz/DOXI00uKzAgF9/x4hVIPzV+vsI5JnCMiXUL9t
BOfN8art8YiAZoQ31//gfMx2oIdRlYAik/ey0XF2mPqT46RGQIl2+0/9n1/Z
cz2gaBLQ5XWe4L84986IX9a4SEDe0ouMNJyJt5UPvL9MQKUn29/W4qw2b7qy
35CAprNrIlNwfsEb2PHQmICWMriz7uD8Rym3gGJGQELHQ02O46x5oyNM4Rr+
/2mmggU83pehG7bxVgTEzG6Wl4nzcpGo6pINAfX72165hLNOn5bIJXsC4urg
er+A65lBcN3Mu01AHCTFlhCc18Wf97I6E1BQV0/mHpwv6daW3ryHv0+GovIC
z0+W+1x0jTsB3YxGufw46389reHrS0AaalLLK3i+c+asD/b7EZDshS9jxjgT
eCMYTj0ioLa4xveFuF/yrAY//Q4loKOb+YLncT8xhjLF60QS0H7T8gr/OhoY
F8m65MQQkIF3kdk73H9MhAdS1om4/wQZ0hhwv5qLZzFXPSMgAlfZFf5aPN8X
W2iCqQQkFr53vxTub4sUoWc9mQRkn9XEKYfXQ2ntBY/jbwjoxt00pQOVeD+Z
c9SPySOgGKJsAhGjwQdFjF2rhIAeN7z83YLXE7H3mk9FJQEx3KseouH1eJP+
xHhvLQE5HRqSjn1Pg89ihcfv1xHQkG1Gn/w7Gti7EeaPtBDQxviW8228vqtJ
r65mDhAQ6b8Hqnfw/rBHsV6BkUpAh89baffi/cPRcmHnNRqeL771KcU3NNhb
qNyyZxrXgyNxfSKTBq46tLPhywS081C6/ADejxpc2fZOrxFQH/P+1G0puH+f
H105/4+ALh02bxV9RoPmmYAC+jYG5OXT9ForgQZiwaIi93gY0OC7qT8KUbjf
qq0ZTGUYkPy+iPl4/Bz7W7mf31eOAbX2LCfYetNgR5Xu8ZdHGVBY7y+vI540
OIkp2k7IM6Bc1hVCkSsN4sqJzS7nGZCnR1bOtVs00C39nBhmwYDeupXa+F3B
9Tl2tDjfkgFdJQWcmTSgwYPi143t1gyId94+W00Pz3dh7NbuWwwo8vKdi3+1
cf3f2llneDAggvGY93YVGnzL5D38JZoBuUgN31yRosHQgVCN4f8YkEl0wP51
cRr8TadbbUtgQIt5oc34zgQH0maeaqQwoJObRNYhIRoEvKjc6HrDgILGBD9Z
k/BzesLtup/VDOhp+Bl+49UReBdcayHylwF1CPFv0rERyNZs3PNklQHFnHee
3SgfgWSOHz/mNxjQNwedhIUPI+AXTb1QzsiI0NVmlQZ8f9ZOXD9kRGRETzQM
Px9JHQHa68P0MGlGVPjySjfVZwS46p6nrlgyouj0ybj5YyNwk8ltuKWFEb1P
Cixzix0GfuH6no12RjTB9/KYR8QwtMgLtkp0MSLH0P39rsHDcPL21y8BA4xI
K8+5zvrBMDB37Hx2cooRlZyIbNztMAyZL98bvmDYhorLVD62omEYU1ptuHN8
Gxo2Ov+fZQ8Vbrh4v+NI3oYIBqSCLechkLOVbtG23I7WkisKqx8OQCtJht1N
gQlNyzId/iLRC+X5Ac9ktjEje2nLA53sXeDNIHWpaZAZdfmp61Oa24GN4qXu
WLoDHacc2p1U3AzjWfviUn1YUCQrRf1dyXeIk+Db/smQFS1S+cImp2sgOvlm
naUIG7ocuDL1iLMSPNwD7vmIsqF7jDaveekYWOi9EE4QY0PIP/3IkVEMZNi6
PZpk2BD9gv2V1FwM6j3PS5xSYEM9fG6humcwYDQ5EMKhx4aohdb+mzcqwG03
TfNDIBuyuZ1k6ljxGUzjrrZwTLKhUNSjW531CQRK2PbemmFDCkJpl/dEfAJq
+wfb+nk2JNV+a8z/3iew5iYxBP1hQ13w4VUU+gSOod+O0RnY0b5Fo7K4gY8Q
4CeXtCDAjna7IQQ7P8Kb2wzW3XrsaPOlYCst/j2sqmaupVawozmHa1Lv2kvA
pzw1sLaKHZ1WnTYQqCgBwtFkzuladrQaINgXm1MCO4Sj9h1tZEcJQb0/3gaW
wK61+xq1Peyo/u/e+uSTJXDsrXbS1G/8fXozrzRTi8Fx5x/5I6IcyJ7L2aHN
uwhGx1XuVz/hQP2XRRgrsHxQSW1JkwrjQJcT7u7iT8mHl8amzbGRHCgz02Lj
qVc+WDTe3X/jKQeSYq+ZmTuRD/2FL5u2pXMg4+JdGjvz38IP7y2R8xUcyPlC
6QXIyINqnrL6uj8cSKDv9srd1zmwr/H8H7lVDhQfJMCYHpwDfo/ahRI3OFC6
op3Hgn0OnF2ZumfHyInu1nYYTMjkQBlltxArkRPd7GaslC19A8Wv3Vw0pTnR
0f3q/vu/Z0PamSN7my050S7JNilBptdQfZEtcMOaE4ntYJpMn80C2rXRGUk7
/Hm3/qMqP7JANOBpWZAjJzo1fVrpa2oWZHxbM0HenOhCqLj5qFIWZOpWJ5bE
caKOnV91Xe5nQral/q7kOk7UUv+I2YkxA767yDz43oCvr2D6tX42HaYCmSaW
mzlRaSJJXLErHSSyPrzT7+REbFmG8WbZ6fBmZq8h5wgnkmZn9k7VTYece2P/
+a1zIub6fGGhtDR4+9iNx1aWC+XyLRZGGL2CudNXAx4f5kKRp3k5x1Regcwf
1aX0Y1wo/fMtOx25V5Bjxds1rMCFvE+fGzdmeQXZUJJoeoELrXxUdL1c/hIy
1n4LX7zGhVqDk/s/H3gJyXduHzoRw4VesR95rsj2Aj+fGqTqx3EhF5sUdpfJ
FOCjKBFdErjQfx2rpKbaFEjUZF/MT+FCevLiDycfpsBT8Zx3EjlcaJfE6cmP
K88hemTytEANF0oGj4n8+WfwxPCG1ra/XIjfmeHCkcUkSNOlmNusciFKc3zW
QlsSfNYwdKzb4EI/l6omuguSYPGMWkwYIzd61Lv0iNsxCczFpHvIRG6kKzr+
7sRcIhxdWbQ6IM2N3gj4MSv+SoChxACv85bcyEmEL+ICdzysxW6EvbbmRvVh
Js9tFp8Cb4RrCqsdN+qKtk/L7HoKGv43K5sduRHrD3H+4OdPodRek9nIhxut
KfE6dkg/hVBFUuzNBG4UnfEh0v5SHJygvHrzpJkb1fTM2X0rjAXiIbvVgjZu
ZHzR941rUizMPTyk1tvBjeIiK11PB8RChmj5mEQ/N4qc3XVpj0Es8N7qFG6Y
4EY7OOZTtlZjYN1nmxYzgYi8nvKN3FWLgT72k1XqfER0Ip5NrnAuCr4dT5qi
8BNR/g3a2J7aKCi9usl9V4CIioKMDxU8i4LogmqLJGEi0t8/+eOGVhSo6+tu
Th8kIqMBat1UXiR8TLY7FXaUiH56jY2evh8BiZLP3jZrEZGqvZ3Xr0Nh8Gfp
QmagDhGlHilzbGAJA92KxecKukQ8H6KznbRQYNbXDM/Uw79Hg+W9R0IouPms
OfiaENGKYPbhX4yhoNd6RULWloj2r9jt8qYFA4cbb3p4ABGlhzzi/lQdBHZQ
mazyiIga6+w+iacFQQ3r7djVx0SUM+BLx/yDwOtFjb91CBGpSaG828pBMF3n
cv10NBGt10tlFFU/hm/87YJzKXj8mpY3apoewcPKiEStT0SU3d7K3/svAGYG
K+PWyojInaD7OosWAEYbS9GvPxPR8K+og4l1ASBz0jRkWyURHTSpuDoaEwC9
uWJe5d/w+K5mR++SCICjCZiZdCcRfbJ8wtJq6g8TdxaE2H8RkXEtH52z6CFc
Djuw99NvIhL8/MypJ+AhfM6+stt2kYg8B9bSBg0ewn+jX7hr/hLRx6InZ1PX
HgAyCSV4b+Jctdj46/wDSFYVpc2w8qCsqOfCYdM+oLPXMLPhAA8arNBfGTT1
gsSxQ5VmYjzoqM6n/KsnvWDsLcvAnDgP6t57WJad5AU+6DORW5oHBV31//Cz
3hPybER99I/woMqQR3E/lDyBrXBBj3KGB+k2W8bRxO9DnWok4acRDyrJ/RPR
JewOJC67vQ+NedCQYkBIIcEdLHqUTxJNedD9wk2LkhE3WLb/e+voVR7kpkAY
l8twA7Eo8x73Gzzo9DXBQLqUGzzqk8qnO/Ggj5Tlsh/gCsqOdWY8ITzo24n9
FKHHLrDeO32hNpQHSZ3fumZr5wKl5ziOeoTzoMLX6QG9Wi4gxneZZTCKB7Fr
Pe87RnYBjtr+0ux4HvRvevxiffpd6OX7yYkyeNBG+Fkm1SZncP7KW+mI8SCN
shurl1wcQerwqdx9VTxo5ULehLaKI4wmm8R3VvMgg1AlyUiSIxg5v7it+I0H
2Tu2qlFL7sDpvRJ8zM08yJd7u3rx2m1guavkktLPg56MPb7XGnMLUgWsDjT9
5UFJB4xtkhfsQPGY9CGrFR6U4smQr9xkB50af06trvIgbn9HA4HXdsDiEaR1
YJMHyUZoVThctQPn9hwXH0YSOvzmziGbJltAQUuVMtwk1LmxNzG55CbQfj26
GiFBQsXery1sMq3Bh/miragUCf2x+zLDGGQNuwR33/0kTUJxEj9uNd20Bk3N
N4/GD5GQnfg2Z5qENRRnNOeeOUFCgkqNAbwFNyDQZNf6vDIJVWvNZljWWMGB
mtfxF81ISLnFS/komyW0yKxmUMxJKGnHwcxbv6/D/Xj1EgcLEpocNuKu774O
jfbTrUGWJHSmpkb5V/p1cCFKs2K2JFSi/fboGFwH7Gq+t5wrCTGJPWH5b9MC
TFdLrxMjSEg9084yV9wctlsxOb2IJCE+ht+sHptmkN9o6CsTTUKc8oKCfu1m
wJC6nKT+Hwlt7VJV0/Axg+zz8h1+SSR08RI/X0GnKfyNLT+/kElC7lFFqo+j
TSBatlrqRwUJZat39Fw+egWy5c1YAypJ6MVcmaMk+xXAzv2ZPFJNQq4WJ+zP
jhnBTxOxzJivJLSqs01aOMEItIJChS83kVBBV6NdMd0QmKl6vG19uJ6yYjZd
AwbgHT36r/kPCUVdFixt/aIHsc98KL7LJOTmrSpSnKIHOVk7y2VXSUiuuKq+
zlcPej+r3Y/YICGNPWY5YWf14OR07qI2Ixn1iWlH3qm+jJ9HXCcbuclIz/Sl
p2nHJbi5tL29XoqMbik28IzIXQSLHNUWcxkykoyLZaBt6YCR5aPGX7JkZNB6
UVK2RQcutG77tvMIGTk1Y49e3tEBsVzGcstTZOT/gaz6u0Abxq0ImWvnyEha
9YQqRVkLrH9s3Je8SkaNPFxXVBLVwTxEyf2zBRl53N8x1uikDgbI+57udTJq
ECWW/KemDqr563fcbpBR8/WTHygranAgdM2qyp6MisJ9WjXN1GBUeUXbxJ2M
buofttGWvQBWRYsiIVFktJNJQylj4xzcDtDf1IzB4wnIWXXvPgdu+qU9HP+R
UUy2ZHBo0TkI/usWGR1PRrMX+31c7M5BvsLaRkIKGcF2U0/FPhVYq6J3Z+WS
EW1J9oneN2WI/sERUVtHRunjf4z/JQAkp9+xC6rH7+f2KJmYA6S7tpxTbySj
b0ZDFKF9AO93Ra83tpBRu/hW+ljuWaCYku06usioUP9UiNq3MyA+yneONkpG
7EXODL2cp+FwqZdQxjgZqdzsifXrVQLFxwNrNpNkNHyW5WFwuhJoi6cUTs+Q
0dd5x98likrgcktEaGGBjDzJyeJ2dxTB57T/WvESGb3rZvNcV1SEx5y0Tte/
ZFQdc+/iJIsiJBakh62uklGk+5pUS6YCpPltty1bx/XeOrGjzlUBci/bqPhs
khGJlsWzR1UBSvd/Ezy7RUbRadwfKskKULEktkank9Gjw2SbylF5+B8JwwEz

           "]]}, Annotation[#, "Charting`Private`Tag$14328#4"]& ]}}, {}}, {
     DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
      AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, 
         Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
         Charting`ScaledFrameTicks[{Identity, Identity}]}}, 
      GridLines -> {None, None}, DisplayFunction -> Identity, 
      PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
      DisplayFunction -> Identity, AspectRatio -> 
      NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
      AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> 
      Identity, Frame -> {{False, False}, {False, False}}, 
      FrameLabel -> {{None, None}, {None, None}}, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLines -> {None, None}, GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, 
        "DefaultGraphicsInteraction" -> {
         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
          "Effects" -> {
           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
            "Droplines" -> {
             "freeformCursorMode" -> True, 
              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
        "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
        None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}}, 
      PlotRange -> {{0, 5}, {-0.5311259660135846, 0.7511255444649386}}, 
      PlotRangeClipping -> True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[
     FormBox[
      TemplateBox[{
        FractionBox[
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
            FractionBox[
             SuperscriptBox["x", "2"], "2"]}]], 
         RadicalBox["\[Pi]", "4"]], 
        FractionBox[
         RowBox[{
           SqrtBox["2"], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"-", 
              FractionBox[
               SuperscriptBox["x", "2"], "2"]}]], " ", "x"}], 
         RadicalBox["\[Pi]", "4"]], 
        FractionBox[
         RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"-", 
              FractionBox[
               SuperscriptBox["x", "2"], "2"]}]], " ", 
           RowBox[{"(", 
             RowBox[{
               RowBox[{"-", "2"}], "+", 
               RowBox[{"4", " ", 
                 SuperscriptBox["x", "2"]}]}], ")"}]}], 
         RowBox[{"2", " ", 
           SqrtBox["2"], " ", 
           RadicalBox["\[Pi]", "4"]}]], 
        FractionBox[
         RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"-", 
              FractionBox[
               SuperscriptBox["x", "2"], "2"]}]], " ", 
           RowBox[{"(", 
             RowBox[{
               RowBox[{
                 RowBox[{"-", "12"}], " ", "x"}], "+", 
               RowBox[{"8", " ", 
                 SuperscriptBox["x", "3"]}]}], ")"}]}], 
         RowBox[{"4", " ", 
           SqrtBox["3"], " ", 
           RadicalBox["\[Pi]", "4"]}]]}, "LineLegend", 
       DisplayFunction -> (FormBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], TraditionalForm]& ), 
       InterpretationFunction :> (RowBox[{"LineLegend", "[", 
          RowBox[{
            RowBox[{"{", 
              RowBox[{
                RowBox[{"Directive", "[", 
                  RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                ",", 
                RowBox[{"Directive", "[", 
                  RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                ",", 
                RowBox[{"Directive", "[", 
                  RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                ",", 
                RowBox[{"Directive", "[", 
                  RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.922526, 0.385626, 0.209179]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], 
                  "]"}]}], "}"}], ",", 
            RowBox[{"{", 
              RowBox[{
                TagBox[#, HoldForm], ",", 
                TagBox[#2, HoldForm], ",", 
                TagBox[#3, HoldForm], ",", 
                TagBox[#4, HoldForm]}], "}"}], ",", 
            RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
            RowBox[{"LabelStyle", "\[Rule]", 
              RowBox[{"{", "}"}]}], ",", 
            RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
       Editable -> True], TraditionalForm], TraditionalForm]},
   "Legended",
   DisplayFunction->(FormBox[
     GridBox[{{
        TagBox[
         ItemBox[
          PaneBox[
           TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
         "SkipImageSizeLevel"], 
        ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, GridBoxItemSize -> Automatic, 
      BaselinePosition -> {1, 1}], TraditionalForm]& ),
   Editable->True,
   InterpretationFunction->(FormBox[
     RowBox[{"Legended", "(", 
       RowBox[{#, ",", 
         RowBox[{"Placed", "[", 
           RowBox[{#2, ",", "After"}], "]"}]}], ")"}], TraditionalForm]& )], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.782166659204575*^9, 3.782166919700657*^9, 3.7821669774786463`*^9, {
   3.782167025550619*^9, 3.782167032018704*^9}, 3.783139267754928*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"1a8f0e89-dc1b-4c4c-b862-d1d6d5975f5f"]
}, Open  ]]
},
WindowSize->{1173, 1062},
WindowMargins->{{Automatic, 654}, {Automatic, 132}},
Magnification:>2. Inherited,
FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (2019\:5e744\:67088\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 178, 4, 86, "Input",ExpressionUUID->"2c7c88bf-1f0e-4c31-b18e-369bf017b247"],
Cell[CellGroupData[{
Cell[761, 28, 2253, 56, 614, "Input",ExpressionUUID->"cbb2b0b2-e261-41aa-a232-79529b4cfdb9"],
Cell[3017, 86, 16617, 321, 159, "Output",ExpressionUUID->"395cd688-1122-4e07-b9e7-c1b504318faa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19671, 412, 1691, 46, 659, "Input",ExpressionUUID->"b862ad02-b96d-46da-a513-9a2e8dd20733"],
Cell[21365, 460, 62942, 1146, 477, "Output",ExpressionUUID->"1a8f0e89-dc1b-4c4c-b862-d1d6d5975f5f"]
}, Open  ]]
}
]
*)

